Подскажите, как правильно написать программу:
Условие: Найдите кол-во целых чисел, лежащих в интервале -100<=n<=100, при которых дробь
(n^2-5n+6)/(2n-1) является целым числом.

Program main;
Var
k, n : Integer;
y : real;
Begin
k := 0;
For n := -100 To 100 do
Begin
y := (n * n - 5 * n + 6) / (2 * n - 1);
If (Int(y) = y) Then k := k + 1;
End;
WriteLn('k=',k);
End.