var
i, j, k: integer;
begin
for i := 2 to 300 do
begin
k := 0;
for j := 2 to i do
if (i mod j = 0)and (k < 6) then inc(k);
if k = 5 then write(' ', i);
end
end.
for(i=2; i<300; i++){
k=0;
for(j=2; j<i; j++){
if(i%j===0 && k<6){
k++;
}
}
if (k===5){
alert(i);
}
}
if(i%j===0 && k<6)
зачастую переменная k достигает шести. Я вот немножко изменил вывод лога https://jsfiddle.net/Lywpupne/