program p18;

Uses Crt;

var N:longint;
    i,j:byte;
    bin:array[0..255] of byte;
begin
clrscr;
write('Zadej cislo, ktere mam prevest do binarni soustavy : ');
readln(N);
repeat
i:=i+1;
if (N/2)>trunc(N/2) then bin[i]:=1 else bin[i]:=0;
N:=trunc(N/2);
until N=0;
write('To cislo v binarni soustave je ');
for j:=1 to i do write(bin[i+1-j]); { Piseme pozpatku !!! }
repeat until keypressed;
end.