Y={2X (в кубе)+1 / X-5, если X=4 это одно выражение…

Program asd; USES crt; var x,f: real; BEGINclrscr; Writeln ('Vvedite x: ='); Readln (x); if x<4 then F: =2*EXP (3*ln (x)+1/x-5) else if x>=4 then F: =3*sqr (x) -2; Writeln ('Otvet: ',f: 2:2); END.