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

Var
    x, y: real;

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