Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. Программа

var num, count: integer; begin

count :=0; repeat

read(x);

if ((xmod2 = 0)and (xmod3 = 0) count := count + 1; until x0;end.