func main()
	var s: []char :: cui@input()
	var c: int :: ^s - 1
	var a: int :: s[0] $ int - '0' $ int
	var b: int :: s[1] $ int - '0' $ int + (s[2] > '4' ?(1, 0))
	if(b = 10)
		do a :+ 1
		do b :: 0
	end if
	if(a = 10)
		do a :: 1
		do b :: 0
		do c :+ 1
	end if
	do cui@print("\{a}.\{b}*10^\{c}\n")
end func