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

Var a, b, c, d, a1, b1, c1, d1:real;

begin

a1:=0; b1:=0; c1:=0; d1:=0;

read (a, b, c, d);

if (a<0) or (b<0) or (c<0) or (d<0) then

begin

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Сумма отрицательных = ', a1+b1+c1+d1);

a1:=1; b1:=1; c1:=1; d1:=1;

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Произведение отрицательных = ', a1*b1*c1*d1);

end

else writeln ('Все числа больше либо равны 0');

end.