Contoh Looping Pada Pascal Tiga Variable

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

Maka Outputnya Sebagai berikut:

1
2 3
4 5 6
7 8 9 10