паскаль!!!!!!
Заполнить матрицу размерностью N на M по следующему принципу:

Если номер строки больше номера столбца, то элемент равен номеру строки.
Иначе – элемент равен произведению индексов.
Выведите матрицу на экран.

Const  N = 5;  M = 10;Var  A   : array[1..N,1..M] of Integer;  i,j : Byte;Begin  For i:=1 to N do  Begin    For j:=1 to M do    Begin      If i>j then A[i,j]:=i else A[i,j]:=i*j;      Write(a[i,j]:6);    end;    Writeln;  end;end.