program assign1_6
implicit none
real :: r
do
   read*,r
   if(r == 0.0) then
      exit
   else
      print*,'int =',int(r)
      print*,'nint =',nint(r)
      print*,'floor =',floor(r)
      print*,'ceiling =',ceiling(r)
   endif
enddo
end program assign1_6