Написать цикл на паскале, который составляет матрицы(размеры- n рядков, m-столбцов) заполненные сверху вниз числами от 1 до n*m (пример):
1 4 7
2 5 8
3 6 9

var n,m,i,j,k:integer;beginread(n,m);for i:=1 to n do begin k:=i; writeln; for j:=1 to m do   begin   write(k,' ');   k:=k+n;   end; end;end.