Pascal, вывести количество простых чисел от n до m где n> 2, а m<30000. С объяснением

var

m, n, i, j:integer;

bool:boolean;

begin

readln (n, m) ; / / читаем Н и М

for i:=n to m do begin / / От Н до М выполняем цикл

bool:=false; / / Обнуляем переменную для каждой итерации

for j:=2 to i-1 do

begin / / Проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число - 1

if (i mod j=0) then bool:=true; / / если делится, тогда bool:=true

end;

if (bool = false) then write (i,' ') ; / / если bool = false, значит это число делится только на себя и на 1, а значит оно простое и выводим это число

end;

end.