const
  n = 20;
  m = 20;

var
  i, j, k: integer; 
  a: array [1..n, 1..m] of integer;

begin
  randomize();
  writeln('Изначальный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(21) - 10;
      write(a[i, j]:4);
      if (a[i,j] > -4) and (a[i,j] < 0) then
        a[i,j] := sqr(a[i,j]);
    end;
  writeln('');
  end;
  writeln('Конечный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i,j]:4);
    writeln('');
  end;
end.