program assign1_4
implicit none
integer :: i
!write(*,'("F: 1.0/3**0 =",f10.3,f12.6)') 1.0/3**0,1.0/3**0
do i=0,10,2
   print'("F10.3: 1.0/3**i =",f10.3,i4)',1.0/3**i,i
   print'("F12.6: 1.0/3**i =",f12.6,i4)',1.0/3**i,i
   print'("E10.3: 1.0/3**i =",e10.3,i4)',1.0/3**i,i
   print'("E12.6: 1.0/3**i =",e12.6,i4)',1.0/3**i,i
   print'("G10.3: 1.0/3**i =",g10.3,i4)',1.0/3**i,i
   print'("G12.6: 1.0/3**i =",g12.6,i4)',1.0/3**i,i
enddo
end program assign1_4