Написать программу ** паскале. Вычислить значение Y по одной из формул. Y= X+a, если X<10...

Question

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

Answer 1

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.