var i,j,a:byte;begin repeat a:=0;for j:=0to 7do a:=i shr j mod 2+a;write(a);inc(i)until 1=0end.