Pengulangan FOR

contoh :

var
a : integer ;

begin
for a := 1 to 5
writeln ( 'halo' )
end.

untuk memberikan no. urut menaik pada writeln ( 'halo' ) ubah menjadi writeln ( a,'.halo' )
untuk memberikan no. urut menurun ubah for a := 1 to 5 menjadi for 5 downto 1