Перевод из 3 в 16 систему счисления

[artem_alexeev]

Напишите, пожалуйста, программу в паскале, которая переводит из троичной в шестнадцатеричную систему счисления, напрямую, если можно
Сам ничего не понимаю, мозг уже кипит
Буду очень благодарен!

[Вадим Мошев]

Сообщение от artem_alexeev

из троичной в шестнадцатеричную систему счисления, напрямую

Извиняюсь, а такое вообще возможно? Тройка же (добавлена частица "не") является целой степенью двойки

[digitalis]

Сообщение от Вадим Мошев

Тройка же не является целой степенью двойки

Yes ?
И действительно, что значит "напрямую" ? Одна символьная строка - 3-ичное представление числа - переводится в другую символьную строку - 16-ричное представление того же числа путем определенных математических телодвижений. А "напрямую" - без них, телепатически?
Если "накривую", то хотя бы так :

program conv316;
const
  str3: string = '012' ;
  str16: string = '0123456789ABCDEF' ;
var
  i,j,n,mn : integer ; flag : Boolean ;
  stro : string ;
label lab ;
begin
lab: Write (' ? ') ;
   Readln(stro); n := Length(stro) ;
   flag := True ;
   for i := 1 to n do
      if Pos(stro[i],str3) = 0 then flag := False ;
   {Test of input string}
   If flag then
      begin
        j := 0 ; mn := 1 ;
        for i := n downto 1 do
          begin
            j := j + (Pos(stro[i],str3)-1) * mn ;
            mn := mn * 3
          end ;
        stro := '' ;
        repeat
          i := j mod 16 ;
          stro := str16[i+1] + stro ;
          j := j div 16
        until j=0 ;
        Writeln (stro) ;
      end
   else Writeln ('F') ;
goto lab ;
end.

Сам ничего не понимаю, мозг уже кипит

В этой фразе содержится внутреннее противоречие: что там может кипеть, если...