Вот алгоритм. На Паскаль самостоятельно перепишите. Требуемых чисел моя программа нашла 8.

Sub main()
Dim k As Integer, j As Integer, n As Integer
Dim y As Single

k = 0
For n = -100 To 100
y = (n * n - 5 * n + 6) / (2 * n - 1)
j = y
If (j = y) Then k = k + 1
Next n
Debug.Print "k="; k
End Sub