Contoh Looping pada Program Pascal 3 variabel 3

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

Outputnya adalah:

1 2 3 4
5 6 7
8 9
10