Ввести двумерный массив . Каждый второй элемент, в том случае, если он отрицателен, возвести в квадрат. Массив вывести до и после преобразования.

const    n = 3;    m = 3;var    i, j: integer;    a, b: array[1..n, 1..m] of integer;begin    for i := 1 to n do     begin        for j := 1 to m do         begin            a[i, j] := random(20) - 10;            write(a[i, j]:3, ' ');        end;        writeln;    end;    writeln;        for i := 1 to n do     begin        for j := 1 to m do         begin            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then                a[i, j] := sqr(a[i, j]);            write(a[i, j]:4, ' ');        end;        writeln;    end;end.