Segitiga Pascal

program segitiga_pascal_kombinasi;
uses wincrt;
var a,b,c,n:integer;

function fkom(n:integer; m:integer): real;
var i,j,k: integer;
x,y,z: real;
begin
x:=1; y:=1; z:=1;
for i:=1 to n do x:=x*i;
for j:=1 to m do y:=y*j;
for k:=1 to (n-m) do z:=z*k;
fkom:=x/(y*z);
end;


begin
write('n = '); readln(n);
for a:=0 to n do
begin
for b:=n downto a+1 do
write(' ');
for c:=0 to a do
write(fkom(a,c):3:0,' ');
writeln;
end;
end.