Объясните, пожалуйста, в чем ошибка
program Funk;
uses Crt;
var x,y: integer;
begin
for x:=-8 to 8 do
y:=x*x+4/x+3;
writeln (y);
writeln (x);
if x=0 then writeln ('Функция не определена');
readkey
end.
Пишет, что нельзя преобразовать тип real к integer, что то значит?