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

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.