// Составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3.
var i,j,n,x : byte;
begin
x:=0;
for i:=10 to 99 do
begin
j:=i mod 2;
n:=i mod 3;
if (j=0) and (n=0) then
begin
writeln(i);
x:=x+1;
end;
end;
Writeln ('количество кратных 2 и 3 двузначных чисел ',x);
end.