Contoh Looping Program pada Pascal 3

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

Maka Outputnya Sebagai berikut:

11
22 12
33 23 13
44 34 24 14
55 45 35 25 15