program konvertalas;
uses crt;
const szamjegyek: array[0..15] of char=('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f');
type talap=(decimalis,binaris,oktalis,hexadecimalis);
const szalap:array[decimalis..hexadecimalis] of string=('decimalis','binaris','oktalis','hexadecimalis');
const szralap:array[decimalis..hexadecimalis] of integer=(10,2,8,16);
Type tszam=record szam:string; alap:talap; end;
var egesz:integer;
    szovegbenszam:Tszam;

Procedure konvert(egesz:integer; var szovegbenszam:tszam);
var alap:integer;
    szamjegy:integer;
begin
    szovegbenszam.szam:='';
    alap:=Szralap[szovegbenszam.alap];
    While egesz <>0 do begin
       szamjegy:=egesz mod alap;
       egesz:= egesz div alap;
       szovegbenszam.szam:=Szamjegyek[szamjegy]+szovegbenszam.szam;
    end;
End;

Begin
 clrscr;
 egesz:=15;
 szovegbenszam.alap:=binaris;
 konvert(egesz,szovegbenszam);
 Writeln(egesz,' -> ',szovegbenszam.szam,' ', Szalap[szovegbenszam.alap]);
 readkey;
End.