program test
implicit none
integer::i,sqr,cube
real::root_sqr
i=0;sqr=0;cube=0
root_sqr=0.;
do i=1,10
   root_sqr=sqrt(real(i))
   sqr=i**2
   cube=i**3
   write(*,100) i,root_sqr,sqr,cube
100 format(2X,I5,2X,F9.5,2(2X,I5))

end do
end program