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

Var n, I, c:integer;

begin

c:=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.

проверь в компиляторе, я Паскаль плохо помню, не уверен