Решите очень срочно! Заранее огромное спасибо! В Turbo Pascal. Вывести на экран все…

program qdiv; var j, s, i, N: integer; begin readln (N); for i: =1 to N do begin s: =0; for j: =1 to i do if i mod j=0 then s: =s+1; if s=4 then writeln (i); end; end. for j: =1 to i do if i mod j=0 then s: =s+1 — если 1 и само число тоже считать делителями. Иначе писатьfor j: =2 to i-1 do if i mod j=0 then s: =s+1