Program Segitiga Pascal

program deret;
uses wincrt;
var
a,b,c,d,e,n:integer;
begin
write('masukkan n=');
readln(n);
b:=1;
c:=1;
d:=1;
for a:=1 to n do
begin
for c:=a downto 1 do
begin
write(b,' ') ;
b:=b+1;
end;
for e:=1 to a+1 do
begin
d:=d-1;
e:=d;
writeln;
end;
end;
end.