Вопрос 5

var
    x: real;
begin
    readln(x);
    if x = 0 then writeln(0.00);
    if x > 0 then writeln(x:2:2);
    if x < 0 then writeln(-x*x:2:2);
end.