Var a, b, c, min, max, answer : integer;
begin
read(a,b,c);
min := a;
max := b;
if min > b then min:=b;
if min > c then min:=c;
if max < b then max:=b;
if max < c then max:=c;
writeln("max =", max);
writeln("min =", min);
if (max > 0) and (min > 0) then answer:=a+b+c
else answer:=a*b*c;
writeln("ответ = ", answer);
end.