1.      Contoh soal

Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:

1

2 2

3 3 3

4 4 4 4

5 5 5 5 5

Kode Program:

program fordalamfor2;

var

 baris, kolom, batas : integer;

begin

     write('masukan batas: ');readln(batas);

     for baris := 1 to batas do

         begin

              for kolom := 1 to baris do

                  write (baris : 2);

                  writeln;

              end;

     readln;

end.