Вывести значение выражения в Pascal ABC.
X=[5;15]

Спасибо, уже написала

var x,y:real;begin writeln('Введите значение X'); readln(X); writeln('Значение X = '); y:=(sqr(x)+x+6)/(sqrt(x)+1); writeln('Значение y = ',y);end.

var x:integer;

begin

for x:= 5 to 15 do

writeln ('x = ',x:2,' y = ',(x*x+x+6)/sqrt(x+1):0:3)

end.