program ch1003
implicit none
real :: x

  read 100, x
100 format (e10.0)
  print *, x
  read 200, x
200 format (e10.4)
  print *, x
  read 300, x
300 format (e10.10)
  print *, x
  read *, x
  print *, x
  read 100, x
  print *, x
  read 200, x
  print *, x
  read 300, x
  print *, x
  read *, x
  print *, x
end program ch1003