(делаю масив 10на10)   program Matrix; var a:array [1..10,1..10] of integer; i,q,b,f:integer; begin b:=0; f:=0; q:=1;  for i:=1 to 10 do begin a[i,q]:=1; end; i:=1;  for q:=1 to 10 do begin a[i,q]:=1; end;  for i:=2 to 10 do begin for q:=2 to 10 do begin  b:=q-1; f:=i-1;  a[i,q]:=a[i,b]+a[f,q]; end; end; readln end.