Даны два числа 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.