Ответ:

var y,x: real;

begin

writeln('Введите целое число x');

readln(x);

y:=(sqr(x)+2*x*sqr(x))/(sqr(x)+15);

write(y);

end.

var y,x: real;

begin

writeln('Введите вещественное число x');

readln(x);

y:=abs(x*sqr(x)-11)+exp((5/3)*(ln(x+7)))-exp(4*(ln(x-15)));

write(y);

end.