<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>