Quy hoạch động nha bạn
program tamgiacpascal;
uses crt;
var A:array[0..100,0..100] of longint;
n,i,j:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
writeln('Tam giac pascal bac ',n,' la: ');
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]+A[i-1,j-1];
for i:=1 to n+1 do
begin
for j:=1 to i do
write(A[i,j]:4);
writeln;
end;
readln
end.