program CountMultiplesOfThree;
vari, count: integer;
begincount := 0;
for i := 10 to 99 dobeginif i mod 3 = 0 thencount := count + 1;end;
writeln('Количество двузначных чисел, кратных 3: ', count);end.
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.