program tam_giac_pascal;
uses crt;
var A:array[0..1000,0..1000] of integer;
n,i,j:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
fillchar(A,sizeof(A),0);
A[1,1]:=1;
for i:=2 to n+1 do
for j:=1 to i do
A[i,j]:=A[i-1,j-1]+A[i-1,j];
writeln('Tam giac pascal bac ',n,' la:');
for i:=1 to n+1 do
begin
for j:=1 to i do
write(A[i,j]:5);
writeln;
end;
readln;
end.
