Найти кол-во четных цифр  кратных 3м. в Паскале СРОООЧНО!

Скорее всего нужно найти количество до n-нного числа, тогда:var n: integer;beginreadln(n);writeln((n div 3) div 2);end.поставь пожалуйста как лучший ответ, к тому же решение довольно хитрое