program SquaringNegativeElements;
var
A: array[1..100, 1..100] of integer;
M, N, i, j: integer;

begin
writeln('Enter the number of rows (M): ');
readln(M);
writeln('Enter the number of columns (N): ');
readln(N);

writeln('Enter the elements of the matrix: ');
for i := 1 to M do
begin
for j := 1 to N do
read(A[i, j]);
end;

for i := 1 to M do
begin
for j := 1 to N do
begin
if A[i, j] < 0 then
A[i, j] := sqr(A[i, j]); // squaring the negative elements
end;
end;

writeln('Matrix with squared negative elements: ');
for i := 1 to M do
begin
for j := 1 to N do
write(A[i, j], ' ');
writeln;
end;
end.