Написать программу на паскале.
Вычислить значение Y по одной из формул.
Y= X+a, если X<10
X+b, если 10[tex]\leq [/tex]X[tex]\leq [/tex]23
X+[tex] a^{2} [/tex], если X>23

var    x, a, b: real;begin    readln(x, a, b);        if x < 10 then         x := x + a    else if x > 23 then         x := x + a * a    else         x := x + b;    writeln(x);end.