Из 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

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

Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.

После получения 27-го числа на индикаторе результат.