Question

Решите в pascalABC 1 вариант

Answer 1

Var
    x: real;

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