Contoh Deret Pascal Hitung Mindur

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

Maka Hasinya seperti dibawah ini:

6
5 4
3 2 1