program dezimal_dual;

uses crt;
var z,i,dezimalzahl:integer;
    r:array[1..100] of BYTE;


BEGIN
     writeln;writeln;textbackground(green);clrscr;textcolor(yellow);textcolor(blink);clrscr;
     writeln;writeln;writeln('             Design (c) by AM + AW');
                     writeln('         =============================');
     writeln;writeln;textcolor(i+1);
     write('Bitte Dezimalzahl angeben:  ');readln(z);
     i:=1;
     while z > 0 DO BEGIN
         r[i]:= z MOD 2;
         z:= z DIV 2;
         i:= i+1;
         end;
         writeln;writeln;
         write('   Das Ergebnis in Dualform: ');
         FOR i:=i-1 downto 1 do
         write(r[i]);
readln;
END.