program prevod;
 { hexa -> dekad. }
var
 cislo:word;
begin
  write('Zadaj hexadecimalne cislo : ');
  readln(cislo);
  writeln('dekadicky : ',cislo );
  writeln('<Enter>');
  readln;
end.