coso10_cosox

// chuyen doi so nguyen duong tu co so 10 sang co so bat ki (<20)
uses crt;

var a:int64;
    b:byte;
    kitu: array[1..100] of string;

procedure doc;
begin
        write('Nhap so TP a: ');readln(a);
        write('Nhap co so muon chuyen doi: ');readln(b);
end;

procedure xlkitu;
var i:char; j:byte;
begin
        j:=10;
        for i:='A' to 'J' do
                begin
                        kitu[j]:=i;
                        inc(j);
                end;
end;

function csx(a:int64; b:byte):ansistring;
var r:string;
begin
        csx:='';
        Repeat
        if a mod b<10 then str(a mod b,r) else
        r:=kitu[a mod b];
        csx:=r+csx;
        a:=a div b;
        until a=0;
end;

procedure ghi;
begin
        write(a,' trong co so ',b,' la: ',csx(a,b));
end;

begin
        clrscr;
        doc;
        xlkitu;
        ghi;
readln
end.