Напишите программу в паскаль, которая на отрезке от 10 до b находит сумму всех нечетных чисел, кратных трем. (10

Program pr1;
var i,b:integer; a,s:real;
begin
readln(b);
for i:=1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 <> 0) then
s:=s+a;
end;
writeln(s);
end.

31 в двоичной  11111     в восьмеричной 37    в шестнадцатеричной  1F
266  в двоичной 100001010    в восьмеричной  412       в шестнадцатеричной  10A
107  в двоичной  1101011      в восьмеричной  153        в шестнадцатеричной  6B
31   в двоичной  11111      в восьмеричной   37      в шестнадцатеричной   1F
75   в двоичной  1001011      в восьмеричной   113       в шестнадцатеричной  4B
138  в двоичной  10001010      в восьмеричной   212      в шестнадцатеричной  8A
155  в двоичной  10011011      в восьмеричной    233     в шестнадцатеричной  9B

31 в двоичной системе это 11111
75 в двоичной системе это 1001011
31 в восьмеричной системе это 37
75 в восьмеричной системе это 113
31 в шестнадцатеричной системе это 1F
75 в шестнадцатеричной системе это 4B
266 в двоичной системе это 100001010
107 в двоичной системе это 1101011
И так далее, вот как переводить:
Делим число 107 на основание системы счисления = 2:

107 / 2 = 53
                               остаток 1

53 / 2 = 26
                               остаток 1

26 / 2 = 13
                               остаток 0

13 / 2 = 6
                               остаток 1

6 / 2 = 3
                               остаток 0

3 / 2 = 1
                               остаток 1

Дальше делить нельзя, поэтому собираем все остатки, начиная с конца, и учитываем конечный результат от деления т.е. 3 / 2 = 1

Получим число: 1101011

Делим число 107 на основание системы счисления = 8:

107 / 8 = 13
                               остаток 3

13 / 8 = 1
                               остаток 5

Дальше делить нельзя, поэтому собираем все остатки, начиная с конца, и учитываем конечный результат от деления т.е. 13 / 8 = 1

Получим число: 153

Делим число 107 на основание системы счисления = 16:

107 / 16 = 6
                               остаток 11   заменяем на B

Дальше делить нельзя, поэтому собираем все остатки, начиная с конца, и учитываем конечный результат от деления т.е. 107 / 16 = 6

Получим число: 6B