Program 1 Berderet

 Program ini mengeluarkan output seperti:

contoh:

 apabila diberi inputan 6 maka outputnya:



uses crt ;

var

x, y, z, i : integer ;

begin
     readln (z) ;


     for y:= 1 to z do

         begin
         for i:= 1 to y do

              write (i);
              writeln;
         end;
     readln;

end.

note:

sama kyak postingan dibawah..