1 read*,r;print'(f0.3)',6.28318*abs(r);goto1;end