INTEGER I;
I:=1024;
WHILE I>0 DO
BEGIN
   OUTINT(I);
   I:=I DIV 2
END