program tam_giac_pascal;
uses crt;
var A:array[0..100,0..100] of integer;
n,i,j:byte;
begin
clrscr;
write('Nhap bac n: '); readln(n);
fillchar(A,sizeof(A),0); {tất cả phần tử mảng A thành 0)
A[1,1]:=1; {Phần tử đầu là 1}
for i:=2 to n do {Chạy từ 2 đến n}
for j:=1 to i do {Chạy từ 1 đến i}
A[i,j]:=A[i-1,j]+A[i-1,j-1]; {Phần tử tại vị trí đó bằng tổng của trên nó với góc bên trái}
{in kết quả}
for i:=1 to n do
begin
for j:=1 to i do write(A[i,j]:5);
writeln;
end;
readln;
end.
