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

var a,b,c,d,a1,b1,c1,d1:real;begina1:=0;b1:=0;c1:=0;d1:=0;read (a,b,c,d);if (a<0) or (b<0) or (c<0) or (d<0) thenbeginif (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);endelse writeln ('Все числа больше либо равны 0');end.