{ prevod cisla do hexadecimalni soustavy }

const
  hexa_alfabet:array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

var
  c,cc,c0:longint;
  h:string;

begin
  h:='';
  write('Zadej cislo: ');
  read(c0);
  c:=c0;
  repeat 
    cc := c mod 16;
    h:=hexa_alfabet[cc]+h;
    c := c div 16;
  until c<16;
  h:=hexa_alfabet[c]+h;
  writeln(c0,' -----> ',h);
end.