Найти количество двузначных натуральных чисел кратных трем

var i,s: integer; begin for i: =10 to 99 do if (i+9) mod 3=0 then inc (s); writeln (s); end. И +9 потому, что если взять просто и, мы будем проверять просто на делимость индекс, а не само число, хотя при просто и ответ тот же