Найти количество целых положительных чисел, больших 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