Contoh Program Looping pada Pascal 2

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

Outputnya seperti dibawah ini:

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