Здраствуйте!2. Составить программу для решения задачи.

Задача. Вывести все значения функции y=x2+ на отрезке от 5 до 6 с шагом 0,1.

составил программу

program p2;

var x,y:integer;

begin

   x:=5;

   while x<=6 do

   begin

      y:=x*x+(sqrt(x)/x-24);

      x:=x+0.1;

      writeln('Ответ=',y);

   end;

end.

p1.pas(7) : Нельзя преобразовать тип real к integer

и не могу понять, что я не так сделал!

объясните пожалуйста?

Var   i,n:integer; begin writeln('Vvedite n'); readln(n); for i:=1 to n do writeln('äëÿ õ=', i, ' y=',sqr(i)); End.