Как перевести число из 2сс 1111100000 в 10сс в 8сс и в 16сс подробно как расписывать.

Fdsfsdffzsdfsfsadfasdfsdf

  иван-дурак             -   конь   али-баба                 -     пещера с сокровищами мышка-норушка     -   теремок иван-царевич         -   избушка на курьей ножке лиса -                   колобок, колобок, спой мне песенку! - колобок королевич  елисей     -         ветер, ветер!   ты могуч, ты гоняешь стаи туч  ты волнуешь сине море,всюду веешь на просторе. не боишься никого, кроме бога одного. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                 -       ветер   королевич елисей                     месяц, месяц, мой дружок, рожок! ты встаешь во тьме глубокой, круглолицый, светлоокий, и, обычай твой любя, звезды смотрят на тебя. аль откажешь мне в ответе? не видал ли где на свете  ты царевны молодой?                                               -     месяц                    

Var s: string; i, j, k: integer; a: array [1..256] of char; begin readln(s); for i: = 1 to length(s) do begin     for j: = 1 to k do         if a[j] = s[i] then begin             writeln('есть');             exit;             end;     a[i]: = s[i];     inc(k);       end; writeln('нет'); end. попрошу отметить, как лучшее решение