var mass:array of array of integer;
    n,m,count,count1,sum: integer;
begin
writeln('Введите кол-во строк');
readln(n);
writeln('Введите кол-во столбцов');
readln(m);
setlength(mass,n);
for i:integer:=0 to n-1 do
setlength(mass[i],m);
for i:integer:=0 to n-1 do begin
mass[i,0]:=count;
count:=count+1;
end;
count:=0;
for i:integer:=0 to m-1 do begin
mass[0,i]:=count;
count:=count+1;
end;
for i:integer:=0 to n-1 do begin
for j:integer:=0 to m-1 do begin
sum:=mass[i,0]+mass[0,j];
mass[i,j]:=sum;
end;
end;
for i:integer:=0 to n-1 do begin
  writeln();
  for j:integer:=0 to m-1 do
  write(mass[i,j],' ');
end;
sum:=m*n;
writeln();
writeln('Число элементов таблицы: ',sum);
end.