---

program Practice3_Variant4;

uses Math;

const
  N = 25; // Количество элементов в массиве

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

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

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

  // Обработка элементов массива R
  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('Изменённый массив R:');
  for i := 1 to N do
  begin
    Write(R[i], ' ');
  end;
  WriteLn;
end.