Программа должна выглядеть так:

program cel;
var
k,n:integer;
j:integer;
y:real;
begin
for n:=-100 to 100 do
k:=0;
y:=(n*n-5*n+6)/(2*n-1);
j:=y;
if (j:=y) then k:=k+1;
readln(n);
writeln('Количество целых чисел=',k);
readln
end.

Я прав ?!?