Написать программу на паскале.
Вычислить значение Y по одной из формул.
Y= X+a, если X<10
X+b, если 10X23
X+, если 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.