задано натуральное число n найти количество натуральных чисел не превышающих n и не делящихся ни на одно из чисел 2,3,5. Нужно написать программу через цикл for

спасибо, работает

var n,I,c:integer;beginc:=0;read(n);for i:=1 to n do if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;write(c);end.проверь в компиляторе, я Паскаль плохо помню, не уверен