Question

ребят, помогите с инфой пожалуйста!! на паскале желательно
​

Answer 1

var

x, y : real;

begin

readln(x);

if x > 2 then

   y := x*x + 4*x - 10

else if x = 2 then

   y := 3 * x*x - 16

else if x < 2 then

   y := 6 * x + 3;

writeln(y:5:2);

end.