Возвести в квадрат те числа, значения которых неотрицательны - Pascal ABC (13020)

Формулировка задачи:

Ввести три действительных числа от -10 до 10. Возвести в квадрат те из них, значения которых неотрицательны, и в третью степень – отрицательные.

Решение задачи: «Возвести в квадрат те числа, значения которых неотрицательны»

Листинг программы

var i: integer;
    a: array [1..3] of real;
begin
  writeln('Введите три действительных числа от -10 до 10:');
  for i := 1 to 3 do
    begin
      repeat
        write('Число ', i, ' = ');
        readln(a[i])
      until (a[i] >= -10) and (a[i] <= 10);
      if a[i] >= 0
        then a[i] := a[i] * a[i]
        else a[i] := a[i] * a[i] * a[i]
    end;
  writeln('Результат:');
  for i := 1 to 3 do writeln('Число ', i, ' = ', a[i])
end.

Объяснение кода листинга программы

Создается переменная i типа integer, которая будет использоваться для цикла for.
Создается массив a типа array [1..3] of real, который будет использоваться для хранения трех действительных чисел.
Выводится сообщение с просьбой ввести три действительных числа от -10 до 10.
Для каждой переменной i в диапазоне от 1 до 3 выполняется цикл for, который начинается с строки write('Число ', i, ' = '); и заканчивается строкой readln(a[i]). В этом цикле пользователю предлагается ввести значение для переменной a[i], и это значение сохраняется в соответствующую переменную. Условие (a[i] >= -10) and (a[i] <= 10) проверяет, что введенное значение находится в допустимом диапазоне.
Если значение a[i] неотрицательно, то оно возводится в квадрат с помощью оператора a[i] := a[i] * a[i]. Если значение a[i] отрицательно, то возводится в куб с помощью оператора a[i] := a[i] * a[i] * a[i].
После завершения цикла for выводится сообщение с результатами.
Для каждой переменной i выводится число a[i] в квадрате.