Y={2X (в кубе)+1 / X-5, если X=4 напишите пожалуйста программу…

Program 1; var x: integer; beginwriteln ('введите x'); readln (x); if x<4 then writeln (y: =(2*exp (3*ln (x)+1) / (x-5); if x>=4 then writeln (y: =3*sqr (x) -2); readln; end. Надеюсь на лучший ответ