Дан массив из 7 чисел, которые вводятся с клавиатуры, Вывести на

Полная тупость: вводить с клавиатуры данные и здесь же их выводить.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('П=',ReadArrReal('Введите 7 чисел:',7).Println.Where(x-gt;xlt;gt;0).
      Aggregate(1.0,(x,y)-gt;x*y))
end.

Пример
Введите 7 чисел: 3.5 -18.3 0 14 174.32 -15 0.17
3.5 -18.3 0 14 174.32 -15 0.17
П=398597.4972