Question

Составьте программу вычисления Y по одной из двух формул:
у=х^2+2x+3,если x>0
y=x^3-2x+3,если x<=0

Answer 1

var
    x, y: real;

begin
    readln(x);
    
    if x > 0 then y := x * x + 2 * x + 3
    else y := x * x * x - 2 * x + 3;
    
    writeln('y=', y);
end.