Найдите среднее арифметическое значение для 15 вещественных чисел, введенных с клавиатуры

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Write('Ср.арифм:',ReadArrReal('>',15).Average)
end.

Тестовое решение:
> 4 3.7 2.8 1.45 4.15 2 2.47 1.18 3.41 3 2.09 2.0 3.31 2.4 1.94
Ср.арифм:2.66