Замените for на while, чтобы алгоритм работал также: program prostoe; var i,n,k: integer; begin write('введите число: '); readln(n); k: =0; for i: =2 to n div 2 do if n mod i =0 then k: =k+1; if k=0 then write('простое') else writeln('не простое'); readln; end.