import Text.Printf
m@main=do x<-readLn;printf"%.2f\n"$55*2**((x-33)/12::Double);m