Дан массив, состоящий из 8 элементов вещественного типа. найдите произведение первых 4 элементов.

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

begin

 var a := ReadArrReal(8);

 a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println

end.

Пример3.12 -52.52 16 132.52 0 -6 12.707 0.0018-347440.723968