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

var k,i:integer;begink:=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