PascalABC. Дана матрица A (M, N). Возвести в квадрат все отрицательные элементы матрицы.

type

tarray = array [1 ... 50,1 ... 50] of longint;

var

a : tarray;

n, m, i, j : longint;

begin

readln (n, m) ;

for i:=1 to n do

for j:=1 to m do read (a[i, j]) ;

for i:=1 to n do

for j:=1 to m do

if a[i, j]<0 then a[i, j]:=a[i, j]*a[i, j];

for i:=1 to n do

begin

for j:=1 to m do write (a[i, j],' ') ;

writeln;

end;

end.

Вместо знака? поставь максимальные значения N и M.