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.