сколько чисел в натуральном ряду от 1 до 100000, которые не делятся на числа 2,3,5,7,11,13 и на простое число с номером 11+1 среди простых чисел в натуральном ряду

program zz1;

var a, b, n, c, i:integer; / / задаем переменные целого типа

begin

for i:=2 to 1000 do / / находим 12-ое простое число

begin

for a: = 1 to i do

if i mod a = 0 then b:=b + 1;

if b = 2 then n:=n+1;

b:=0;

if n = 11 + 1 then break;

end;

c:=i;

for i:=1 to 100000 do / / считаем количество нужных чисел

begin

if (i mod 2 0) and (i mod 3 0) and (i mod 5 0) and (i mod 7 0) and (i mod 11 0) and (i mod 13 0) and (i mod c 0) then b:=b+1;

end;

writeln (' количество найденных чисел = ', b); / / выводим ответ

end.