m@main=do n<-readLn;print$fromIntegral(mod(n+500)1000+9500)/10;m