Если x=0 то y=2x+10 x<0 то y=x2+2x
если 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.