Из 27 целых чисел,заданных с клавиатуры ,найти произведение отрицательных элементов.

1 П0 0 П4 С/П x<0 10 ИП0 * П0 КИП4 ИП4 2 7 - x=0 04 ИП0 Сx С/П

Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе результат.

Const
  n=27;

var
  i,t:integer;
  p:real;

begin
  p:=1;
  for i:=1 to n do begin Read(t); if t<0 then p:=p*t end;
  Writeln('Произведение отрицательных элементов равно ',p)
end.

Пример
-12 35 -98 -15 36 -40 -95 -12 -57 40 66 -53 -44 23 -2 67 -28 59 -74 -97 -65 -13 -47 94 12 18 -52
Произведение отрицательных элементов равно -8.87597799232315E+25