var
a,b,c,d,p : integer;
r : real;
begin
readln (a,b,c,d);
p := 0;
if (a<=30) and (b<=30) and (c<=30) and (d<=30) then
begin
p := p +1;
r:= a*b*c*d*2;
end;
if d mod 2 = 0 then
begin
r := a*b/10;
p := p + 1;
end
;case p of
0 : writeln (a-d); //Как я понял иначе (все условия не выполняются)
1 : writeln (r);
2 : writeln (a,' ',b,' ',c,' ',d);
end;
end.