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.

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