Программа

Program Translator;
{ Перевод неотрицательных целых
  из одной системы счисления в другую }
Var A:integer;                                           { Переводимое число }
Function Translat(A,Power:integer):string;
                                  { Функция перевода числа A в систему Power }
  Var Str:string;                 { Буферная переменная }
  Begin
    Str:='';                      { Сброс буфера }
    repeat
      case A mod Power of     { Определение очередного символа
                                по остатку от деления }
        0:Str:='0'+Str;
        1:Str:='1'+Str;
        2:Str:='2'+Str;
        3:Str:='3'+Str;
        4:Str:='4'+Str;
        5:Str:='5'+Str;
        6:Str:='6'+Str;
        7:Str:='7'+Str;
        8:Str:='8'+Str;
        9:Str:='9'+Str;
        10:Str:='A'+Str;
        11:Str:='B'+Str;
        12:Str:='C'+Str;
        13:Str:='D'+Str;
        14:Str:='E'+Str;
        15:Str:='F'+Str
      end;
      A:=A div Power                          { Получение частного }
    until A=0;                                
    Translat:=Str                             { Определение значения функции }
  End;
BEGIN
  Write('Введите число ');                  { Вывод приглашения ввести число }
  ReadLn(A);                                { Ввод числа }
  WriteLn(A,'(10)=',                        { Вывод результата }
          Translat(A,2),'(2)=',
          Translat(A,8),'(8)=',
          Translat(A,16),'(16)')
END.