Program Segitiga Pascal (I)

program segitiga_pascal;
uses wincrt;
function faktorial(n:byte):real;
var i,z:word;
begin
if n = 0 then faktorial:=1 else

begin
z:=1;
for i:=1 to n do z:=z*i;
faktorial:=z;
end;
end;
function check(x,y:byte):real;
begin
y:=y-1;
check:=faktorial(x) / faktorial(y) / faktorial(x-y);
end;
var input,i,j:integer;
begin
writeln('Masukkan berapa tingkat segitiga pascal ?');
readln(input);
for i:=1 to input do
begin
for j:=1 to i+1 do
write(check(i,j):0:0,' ');
writeln;
end;
end.