Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6

Var k,i:integer;
begin
k:=0;
for i:=101 to 499 do
 if (i mod 12 = 0)and((i mod 10 = 4)or(i mod 10 = 6))
  then k:=k+1;
writeln(k = ,k);
end.

Результат:
k = 12