program PascalGuru;
uses crt;
{ -------------- }
var
A, B, C, Z: real;
begin
write('A= ');
readln(A);
write('B= ');
readln(B);
write('C= ');
readln(C);
if (A > 0) and (B > 0) and (B > 0) then
Z := A + B + C
else if (A < 0) and (B < 0) and (B < 0) then
Z := (A + B) * C
else
Z := A * B * C;
writeln;
writeln('Z= ', Z:0:2);
readln;
end.