Даны два числа n и m. создайте двумерный массив a[n][m], заполните его таблицей умножения a[i][j]=i*j и выведите на экран. при этом нельзя использовать вложенные циклы, все заполнение массива должно производиться одним циклом.

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.