Переводит из 10й в 2-9.
uses crt;
procedure dectobase(dec:word;base:byte;var res:string);{число, новая система, результат}
var s:string;
begin
if dec>(base-1) then dectobase((dec div base),base,res) else res:='';
str((dec mod base),s) ;
res:=res+s;
end;
var N:word;
ss:byte;
s:string;
begin
clrscr;
write('Vvedite chislo n=');
readln(n);
write('Sistema schislenya ss=');
readln(ss);
dectobase(n,ss,s);
writeln(s);
readln
end.