Program prevod;
uses crt;

var
cis, zvysok:word;
pismeno:byte;

begin
clrscr;
write('Zadaj cislo: ');
readln(cis);

pismeno := 16;
gotoxy(1, 3);
write('0000000000000000');
repeat
zvysok := cis div 2;
gotoxy(pismeno, 3);
write(cis mod 2);
cis := zvysok;
pismeno := pismeno - 1;
until zvysok = 0;

readln;
end.