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.
Объяснение:
