program count_multiples_of_3;

var
count, i: 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.