!	n=1,2,..,10 縺ｮ邏ｯ荵励�險育ｮ�
!	螻･豁ｴ
!	2011/04/?? 蟾晉舞縲諡謎ｹ溘譁ｰ隕丈ｽ懈�
!	2012/04/12 蠅礼伐縲蜥悟ｭ�  菫ｮ豁｣
program ex1
implicit none

real(8) :: N2	! n 縺ｮ2 荵�
real(8) :: N3	! n 縺ｮ3 荵�
real(8) :: Ninv ! n 縺ｮ騾�焚
integer :: n	! loop螟画焚
integer :: I,X,F ! 譖ｸ蠑乗欠螳壼ｭ�

N2 = 0.0d0
N3 = 0.0d0
Ninv = 0.0d0

write(*, *) "  n          n2            n3            1/n"

do n=1, 10縲縲縲縲縲縲縲! 邏ｯ荵励�險育ｮ励ｒ縺吶ｋloop
   N2 = dble(n) **2
   N3 = dble(n) **3
   Ninv = 1.0d0 / dble(n)
   write(*, '(1X, I4, 2X, 3F14.8)') n, N2, N3, Ninv
enddo

end program ex1