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

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 (abegin
if (aif (bif (cif (dwriteln (Сумма отрицательных = ,a1+b1+c1+d1);
a1:=1;b1:=1;c1:=1;d1:=1;
if (aif (bif (cif (dwriteln (Произведение отрицательных = ,a1*b1*c1*d1);
end
else writeln (Все числа больше либо равны 0);
end.