Составить программу.
с клавиатуры вводятся 10 чисел. составьте программу , которая определяет произведение отрицательных среди введенеых чисел

Program n1;var a,p: real;i: integer;beginp:=1;for i:=1 to 10 dobeginreadln(a);if a<0 then p:=p*a;end;writeln(p); end.