Contoh Program Looping pada Pascal

uses crt;
var a,b : integer;
begin
clrscr;
for a:=5 downto 1 do
begin
for b:= 1 to a do
write(b,' ');
writeln;
end;
readln;
end.

Maka Outputnya seperti dibawah ini:

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