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; szovegben_szam:tszam;

Procedure konvert(var egesz:integer; var szovegben_szam:tszam);
var alap:integer; szamjegy:integer;
begin
  szovegben_szam.szam:=' '; alap:=szralap[szovegben_szam.alap];
  while egesz<>0 do begin
    szamjegy:=egesz mod alap;
    egesz:=egesz div alap;
    szovegben_szam.szam:=szamjegyek[szamjegy]+szovegben_szam.szam;
    end;
end;

begin
clrscr;
writeln('Konvertalas');
writeln;
write('Egesz: '); readln(egesz);
szovegben_szam.alap:=decimalis;
konvert(egesz,szovegben_szam);
writeln(egesz,' -> ',szovegben_szam.szam,' szamrendszer: ',szalap[szovegben_szam.alap]);
writeln; write('ENTER-re vege'); readln;
end.