Var
    x: real;

begin
    readln(x);
    if x lt; 0 then
        writeln(x * x)
    else if x gt; 0.3 then
        writeln(-x)
    else writeln(x);
end.