{ ZDESDODV.PAS                                   Copyright (c) Pheo }
{ Program na prevod cisel z desiatkovej do dvojkovej sustavy.       }
{                                                                   }
{ Datum:25.04.2005                             http://www.trsek.com }
 
PROGRAM ZDESDODV;
VAR I,J,C,D:INTEGER;
        Z:ARRAY [1..16] OF INTEGER;
BEGIN
 WRITELN('ZADAJ CISLO V DES SUSTAVE');
 READ(D);
 I:=16;
 C:=D;
 
 REPEAT
   Z[I]:=C MOD 2;
   C:=C DIV 2;
   I:=I-1;
 UNTIL C=0;
 
 WRITE('ZAPIS CISLA ',D,' V DVOJKOVEJ SUSTAVE JE: ');
 FOR J:=I+1 TO 16 DO
    WRITE (Z[J]);
 
 WRITELN;
 READLN;
END.