Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 20). ПАСКАЛЬ СРОЧНО

1 const2. digit: string(20)=`0123456789ABCDEFGHIJ`;vari:longintn,r;integer;function FromDec(n,r:longint):string;vars:String;begins:=`  `;repeats:=digit(n mod r)+1)+Sn:=n div r ;until n=0;FromDec:=S;end;beginwrite(`N=`); readin(n);write(`osn=`); readin(r);writeln(`Res=`,FromDec(n,r));end