Турбо паскаль:
for i:=2 to sqrt(n) do if (n mod i = 0) then prost:=0;

паскаль выдает ошибку 39 ( в выделеном месте
подскажите, пожалуйста как ее устранить

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.