{Programm zur Zahlenumwandlung }
uses crt;

var basis   : integer;
    zahl    : longint;
    zahlneu : string;

procedure Berechnung;
var i,r,a   : integer;
    hs      : string;
begin
zahlneu:=' ';
a:=zahl;
repeat
    r:=a-Basis*(a div Basis);
    str(r,hs);
    zahlneu:=hs  + zahlneu ;
    a:=a div Basis;
until a=0;

writeln('Die Zahl ',Zahl,' ist gleich :  ( ',zahlneu,')  zur Basis ',Basis);
end;


procedure Eingabe;
begin
 clrscr;
 Writeln('                       *** Umwandlung einer Zahl ***');
 write(#10,#10,'NatÜrliche Zahl :=  ?');read(Zahl);
 write(#10,#10,'Basis der Zahl  :=  ?');read(Basis);
end;



{**************************************************************************}

begin
 repeat
   repeat  Eingabe  until Basis >1 ;
   Berechnung;
   repeat until keypressed;
 until (readkey='n') or (readkey='N');

clrscr;
writeln('Goodbye ! ');
end.