Вроде так!!!
program Project4
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array[0..100,0..100]of integer;
i,j,n,m:integer;
begin
read(n,m);
i:=0; j:=-1;
while i<n do begin
a[i,j]:=i*j;
inc(j);
if j>=m then
begin j:=0; inc(i);
end;
end;
for i:=0 to n-1 do begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
readln;
readln;
end.