Program Choto;
var a, b, c:real;
begin
writeln ('Ââåäèòå 2 ÷èñëà.');
readln (a, b);
c:=a*b;
if (c<0) then c:=c*-2
else c:=c*1.5;
writeln (c);
end.