Напишите функцию, которая выводит на экран переданное ей число в системесчисления,

1 const
2. digit: string(20)=0123456789ABCDEFGHIJ;
var
i:longint
n,r;integer;
function FromDec(n,r:longint):string;
var
s:String;
begin
s:=  ;
repeat
s:=digit(n mod r)+1)+S
n:=n div r ;
until n=0;
FromDec:=S;
end;

begin
write(N=); readin(n);
write(osn=); readin(r);
writeln(Res=,FromDec(n,r));
end