uses crt;
const zn:string[9]='012345678';
var n,b:integer;
s:string;
begin
clrscr;
write('Число в СС 10 n=');
readln(n);
repeat
write('Перевести в СС b=');
readln(b);
until b in [2..9];
s:='';
while n>0 do
begin
s:=zn[n mod b+1]+s;
n:=n div b;
end;
write('в системе ',b,' =',s);
readln
end.