40 баллов! Написать программу в паскаль!

Const n=6;
var a:array[1..n] of integer;
i,p:integer;
begin
writeln(Введите 6 элементов массива:);
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do
 if a[i]lt;0 then p:=p*a[i];
writeln(p = ,p);
end.

Пример:
Введите 6 элементов массива:
5 -8 3 -4 7 -1
p = -32

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

begin
  var a:=ReadArrReal(Вводите массив:,6);
  Writeln(П=,a.Where(x-gt;xlt;0).Aggregate(1.0,(x,y)-gt;x*y))
end.

Пример
Вводите массив: 5 -8 3 -4.5 7 -1.15
П=-41.4