{* Шестнадцатеричное число в десятичное *}

Unit HEX_DEC;
Interface
Implementation
Begin
 writeln('Перевод из шестнадцатеричного числа в десятичное');
End.

Program pas;

Uses hex_dec.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a                  : longint;
Function DEC_HEX(x : longint); {* Константы *}
digits             : Array [0..15] Of char = ('0', '1', '2', '3', '4', '5', '6', '7',                                        '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
Var {* Необходимые переменные *}
  res : String;
  d   : 0..15;
Begin
  res := '';
  While (x0) Do
  Begin
    d := x Mod 16;
    x := x Div 16;
    res := digits[d] + res;
  End;
  DEC_HEX := res;
End;
Begin
  readln( a );
  writeln( DEC_HEX(a) );
End.