В интервале от k1 до k2 найти количество простых чисел. Паскаль

var k1,k2,k,i,m,j:integer;beginwrite('k1, k2:');readln(k1,k2);k:=0;for i:=k1 to k2 do begin m:=0; for j:=2 to round(sqrt(i)) do  if i mod j = 0 then m:=m+1; if m=0 then k:=k+1; end;writeln('k = ',k);end.Пример:k1, k2:10 100k = 21