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

program zz1;var a, b, n, c, i:integer; // задаем переменные целого типаbeginfor 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 // считаем количество нужных чиселbeginif (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.