Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]=0123456789ABCDEF; begin s:=; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]=0123456789ABCDEF; begin m:=0; while n[1]=0 do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln(Введите из какой СC:); repeat readln(cs1); until (cs1gt;=2) and (cs1lt;=36); writeln(Введите число в соответствии с CC:); readln(TD); writeln(Введите в какую CC:); repeat readln(cs2); until (cs2gt;=2) and (cs2lt;=36); writeln(Перевод из ,cs1, CC --gt; ,cs2, CC:); writeln(FromDec(ToDec(TD,cs1),cs2)); end.