program Program01; var szam : integer; BEGIN szam := 5; WriteLn(HexStr(szam,32)); ReadLn; END.