a:?read()*2;while(a>1)do printf(?t,"~,1f
",a:round(a)/2);