1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20

var
   a:array[1..100,1..100] of integer;
   i,j,n,m:integer;
begin
 read(n,m); {количество строк и столбцов}
 for i:=1 to n do
  for j:=1 to m do
   if (i=1) or (j=1) then a[i,j]:=1 else a[i,j]:=a[i-1,j]+a[i,j-1]; {заполнение}
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:4);  {вывод на экран}
   writeln;
  end;
 readln
end.