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

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.