Сколько среди первых 1000 натуральных чисел таких, которые не кратны ни 2, ни 5

Таких чисел 400

Вот программа на паскале:

var i,x:integer;
begin
x:=0;
for i:=0 to 1000 do
begin
if (i mod 5<> 0)and(i mod 2 <> 0) then
x:=+x+1;
end;
write(x);
end.