15 lines
256 B
Text
15 lines
256 B
Text
procedure Pascal(r : Integer);
|
|
var
|
|
i, c, k : Integer;
|
|
begin
|
|
for i:=0 to r-1 do begin
|
|
c:=1;
|
|
for k:=0 to i do begin
|
|
Print(Format('%4d', [c]));
|
|
c:=(c*(i-k)) div (k+1);
|
|
end;
|
|
PrintLn('');
|
|
end;
|
|
end;
|
|
|
|
Pascal(9);
|