Если x=0 то y=2x+10 ; x<0 то y=x2+2x (очень надо )

Question

Если x=0 то y=2x+10 ; x<0 то y=x2+2x (очень надо )

Answer 1

Var
    x: real;

begin
    readln(x);
    if x = 0 then writeln(2 * x + 10)
    else if x < 0 then writeln(x * x + 2 * x);
end.