Module a
  
  Sub Main()
  
    Dim input as string
    input = Console.ReadLine()
    
    Dim num as decimal = Cint(input)
    
    Dim num2 as integer = 0
    
    num2 = num/2 + 0.5 
   
    dim d as double = num2/num
    Console.WriteLine(Cstr(d))
    
  End Sub
 
End Module