Помогите пожалуйста!! Задание...

Помогите пожалуйста!! Задание в Pascal : посчитать количество элементов в последовательности чисел от 1 до 100, которые не делятся нацело на 2 и на 5.Срочно нужно, завтра экзамен в колледже!!!

 

1)program z;
2)uses crt;
3)var
4) kol, i: integer;
5)
6) begin
7) for i := 1 to 100 do
8) if ((i mod 2 = 0) and (i mod 5 = 0))  then
9) inc(kol);
10) Writeln(kol);
11)
end.