Program z16_49;
uses crt;
Var x:longint;
p,max,c:byte;
BEGIN
clrscr;
write('Vvedite chislo'); readln(x);
max:=0;
While x>0 do begin
c:=x mod 10;
if c>max then max:=c;
x:=x div 10;
end;
Write('dannoe chislo moget byt zapisano v sisteme schislenia s osnovaniem ');
for p:=max+1 to 9 do write(p:0);
readln;
END.