12.24 Паскаль, пожалуйста)

Question

12.24 Паскаль, пожалуйста)

---

Answer 1

Var A:array[1..6,1..6]of integer;
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;   
for i:=1 to 6 do A[i,1]:=1; 
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];

for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],'  ');
writeln();
end;
end.