{ (c) 1998 CREEQ <creeq@web.de> }
program Binaerzahl_ermitteln;
uses Crt;
var Binaer : string;
    Dezimal,
    Zahl,
    Rest : integer;
begin
  clrscr;
  write('Bitte geben sie eine Dezimalzahl ein: ');
  readln(dezimal);
  zahl := dezimal;
  repeat
    rest := zahl mod 2;
    binaer := chr(rest+ord('0')) + binaer;
    zahl := zahl div 2;
  until zahl = 0;
  writeln('Die Dezimalzahl ',dezimal,' lautet Bin„r ',binaer);
  readkey;
end.