Будем считать, что x2, x3 это x² ,x³.
Прежде всего заметим, что в функции стоит Ln(y), откуда следует, что y>0, откуда
x²-1/x>0, откуда x>1.
Код:
VAR
x,Ymin,Ymax,h:REAL;
i,N:INTEGER;
BEGIN
Write('x (>1) = ');
ReadLn(x);
h:=0.01/x/x/x;
Ymin:=x*x-1/x;
Ymax:=x*x+2*x+1;
N:=ROUND((Ymax-Ymin)/h);
For i:=0 to N do
Writeln(Ymin+h*i,' ',Ln(Ymin+h*i)+Exp(-Ymin-h*i));
ReadLn;
END.
Но вообще-то странная задача. Разумное количество строк получается, только если x совсем чуть-чуть больше 1, т.е. 1.01, ну максимум 1.1. Если больше, то шаг по y получается очень мелким и программа идет "в разнос". Но даже если x близок к 1, то количество точек равно 100, т.е. в экран это не лезет. Что-то, похоже, в условии не то.