Perulangan repeat-Until

Beda seperti postingan Repeat-Until sebelumnya. pada kali ini ane mau kasih tau codingan repeat-until untuk outputan seperti ini:

5
4   5
3   4   5
2   3   4   5
1   2   3   4   5


Nah ini gan codingannya :

program test1;
uses wincrt;
var a,i:integer;
begin
     a:=5;
     repeat
     i:=a;
            repeat
                  write(i:5);
                  i:=i+1;
                  until i>5;
            writeln;
     a:=a-1;
     until a<1;
end.


Semoga Bermanfaat ya gan. Untuk program-program yang lainnya, akan menyusul.