program task;
var a:real;
begin
write('Ââåäèòå ÷èñëî : ');
read(a);
if a>0 then writeln(a*2)
else writeln(a/2);
end.