У скольких чисел от 1 до 2020 включительно ровно четыре натуральных делителя? (Включая 1 и само число).

var n,k,i,j:integer; begin n:=0; for i:=2 to 2020 do  begin  k:=2;  for j:=2 to i div 2 do   if i mod j = 0 then k:=k+1;  if k=4 then n:=n+1;  end; writeln('n = ',n); end. Результат: n = 571