program data_45
         implicit none
         real*8 a , b
         integer :: N , c
         read(*,*) a 
         call change(a)
         write (*,*)a


         stop
         end program data_45

         subroutine change(data1) 
         implicit none
         integer :: N , c 
         real*8  :: data1 , data2 
!        read(*,*) data1
         data1=data1*1000
!         write(*,*)data1
         N=int(data1) 
!         write(*,*) N
         c=mod(N,10)
!         write(*,*) c
           
         if (N>0) then
        
           if (c>4) then
!            write(*,*) N
            N=N-c+10
!            write(*,*) N
           else
!            write(*,*)N
            N=N-c
!            write(*,*)N 
           end if
        else

          if (c<-4) then
!            write(*,*) N
            N=N-c+10
!            write(*,*) N
           else
!            write(*,*)N
            N=N-c
!            write(*,*)N
           end if
         end if

         N=N/10
!         write(*,*)N
         data2=real(N)/100
!         write(*,*)data2
         data1=data2
         return 
         end