Написать программу на паскале. вычислить значение 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.