---

program Variant4;

uses Math;

const
  N = 25;  { количество элементов массива }

var
  R: array[1..N] of Integer;
  i: Integer;

begin
  Randomize;  { инициализация генератора случайных чисел }

  { Заполнение массива случайными числами в диапазоне [-10, 10] }
  WriteLn('Исходный массив R:');
  for i := 1 to N do
  begin
    R[i] := Random(-10, 11);  { случайное число от -10 до 10 }
    Write(R[i]:5);
  end;
  WriteLn;

  { Обработка массива }
  for i := 1 to N do
  begin
    if R[i] < 0 then
      R[i] := Sqr(R[i])      { отрицательные — в квадрат }
    else if R[i] > 0 then
      R[i] := R[i] + 7       { положительные — увеличить на 7 }
    { нулевые — оставляем без изменения }
  end;

  { Вывод результата }
  WriteLn;
  WriteLn('Преобразованный массив R:');
  for i := 1 to N do
    Write(R[i]:5);
  WriteLn;

  ReadLn;
end.