Заполнить матрицу размерностью 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.