program CountMultiplesOfThree;

var
i, count: integer;

begin
count := 0;

for i := 10 to 99 do
begin
if i mod 3 = 0 then
count := count + 1;
end;

writeln('Количество двузначных чисел, кратных 3: ', count);
end.