Составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3.

// Составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3. var i,j,n,x  : byte;beginx:=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.