Contoh Looping Program pada Pascal 3

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

Maka Outputnya Seperti dibawah ini:

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