Program Umwandlung_von_Zahlen;

Uses crt;

var
 s: Array [0..20] of integer;
 b,z,zb,x: integer;
 jn: char;

Begin;
 While jn<>('n') do begin;
  clrscr;
  writeln ('Umrechnung von Zahlen (z) der Basis 10 in eine Zahl der Basis (b).');
  Write ('z = ');
  readln (z);
  Write ('b = ');
  readln (b);
  write ('Das Ergibnis ist: ');
  x:=0;
  while z<>0 do begin;
   s[x]:=z mod b;
   z:=z div b;
   x:=x+1;
  END;
  zb:=x-1;
  For x:=zb downto 0 do write (s[x]);
  writeln;
  Write ('Ausf�hrung wiederholen (j/n)');
  readln (jn);
 END;
END.