Y= {2x(в кубе) +1 / x-5, если x< 4 {3x(в квадрате) -2, если x> =4 напишите ! и за блог

Program 1;
var x:integer;
begin
writeln('введите 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.

Надеюсь на лучший ответ:)