Написать программу, которая вычисляет среднее арифметическое введенной с клавиатуры последовательности дробных чисел. По - PascalABC.NET

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

Написать программу, которая вычисляет среднее арифметическое введенной с клавиатуры последовательности дробных чисел. После ввода последнего числа программа должна вывести минимальное и максимальное число последовательности. Количество чисел последовательности должно задавать во время работы программы.

Решение задачи: «Написать программу, которая вычисляет среднее арифметическое введенной с клавиатуры последовательности дробных чисел. По»

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

begin
  Var N: List<double> = new List<double>;
    While true do try N.Add(ReadlnString('N['+N.Count+'] = ').ToReal);
    Except on System.FormatException do begin Writeln(#13 + #13); break; end;
    end;
  Writeln('Min: ' + N.Min + #13 + 'Max: ' + N.Max + #13 + 'Среднее арифметическое: ' + N.Sum / N.Count);
end.

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

Создается список N типа List и инициализируется пустым.
Запускается бесконечный цикл while true do.
В каждой итерации цикла запрашивается ввод числа с клавиатуры с помощью функции ReadlnString, введенное число добавляется в список N с помощью метода Add.
Если при чтении числа возникает исключение System.FormatException, то выводится сообщение об ошибке и цикл прерывается.
После окончания цикла выводится сообщение с минимальным и максимальным значением в списке N, а также средним арифметическим, которое вычисляется как сумма всех чисел в списке N, деленная на количество чисел в списке N.