mrPASCAL

var x,f:real;

begin

readln(x);

if x>0 then f:=x else f:=x*1;

writeln(f)

end.