Write a program that, in a sequence of integers, determines the number of even numbers divisible by 3.

Write a program that, in a sequence of integers, determines the number of even numbers divisible by 3. The program receives integers as input. The number of entered numbers is unknown, the sequence of numbers ends with the number 0 (0 is a sign of the end of the entry, not included in the sequence). The number of numbers does not exceed 1000. The entered numbers do not exceed 30,000 modulo. The program should output one number: the number of even numbers divisible by 3.

var num, count: integer;
begin

count :=0;
repeat

read(x);

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



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.