Question

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