Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Входные данные для размерности массива и значения элементов массива задайте самостоятельно. На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Программная реализация обязательна!

Язык программирования: Паскаль

program ReplaceNegativesWithSquares;

const
  size = 5;
var
  arr: array[1..size] of integer;
  i: integer;

begin
  for i := 1 to size do
  begin
    arr[i] := random(21) - 10; // генерация случайных чисел от -10 до 10
    if (arr[i] < 0) then
      arr[i] := arr[i] * arr[i];
  end;

  writeln('Исходный массив:');
  for i := 1 to size do
    write(arr[i], ' ');

  writeln;
  writeln('Массив после замены отрицательных элементов их квадратами:');
  for i := 1 to size do
    write(arr[i], ' ');

end.

Результат выполнения программы:

(скриншот с выводом значений массива до и после замены)