Найти кол-во четных цифр кратных 3м. в паскале !

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