Возможно у вас что то не так с типами. i должен быть longint, а не real... n должен быть real (вещественный),однако вы используете операцию n mod i, поэтому я вам могу посоветовать использовать N тип longint,но заменить sqrt(n) на round(sqrt(n)) round - это округление