real x read(5,100) x write(6,100) x 100 format(f10.5) stop end