Перевести с десятичной системы счисления в двоичную и наооборот​

31(10) = 11111(2)

51(10) = 110011(2)

16(10) = 10000(2)

11101101(2) = 237(10)

110101(2) = 53(10)

1011011(2) = 91(10)

если для каждого из 3 символов возможны 3 варианта, то общее число слов    3³ = 27

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.