Ввести 5 вещественных чисел. Каждое число округлить до ближайшего целого - PascalABC.NET

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

Ввести 5 вещественных чисел. Каждое число округлить до ближайшего целого. Использовать процедуру замены числа результатом его округления (функцией ROUND не пользоваться)

Решение задачи: «Ввести 5 вещественных чисел. Каждое число округлить до ближайшего целого»

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

function myRound(N : Real) : Integer := Trunc(N) + (Frac(N) < 0.5 ? 0 : 1);
 
begin
  var a : array [1..5] of Real;
  for var i := 1 to 5 do
    a[i] := ReadLnReal('Введите ' + i.ToString + ' вещественное число:');
  Write('Округлённые до ближайшего целого: ');
  for var i := 1 to 5 do
    Print(myRound(a[i]));
  WriteLn;
end.

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

Введенная функция myRound округляет число до ближайшего целого, используя стандартную функцию Trunc для округления вниз и функцию Frac для получения дробной части числа. Если дробная часть меньше 0.5, то число округляется вниз, иначе - вверх.
Создается массив a типа Real размером 5 для хранения введенных пользователем чисел.
В цикле for происходит запрос у пользователя ввода 5 вещественных чисел и сохранение их в массиве a.
Выводится сообщение с текстом Округлённые до ближайшего целого: и в цикле for выводятся округленные значения из массива a.
Выводится символ новой строки для перехода на новую строку.