Решение задачи и описание этапов решения.Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5.

var i,n,kol:uint64; //Заказываем 3 переменные uint64 begin read(n); //Читаем n for i:=1 to n do begin // Запускаем цикл перебора всех чисел    if ((i mod 2)=0) and ((i mod 3)=0) and((i mod 5)=0) then inc(kol); // Проверяем Удовлетворяет ли число    end; writeln(kol); //Пишем это количество end.