Public Class Program
  Shared Sub Main()
    Dim s As String = Console.ReadLine()
    Dim ans As String = ""
    Select Case s
      Case "Sunny": ans = "Cloudy"
      Case "Cloudy": ans = "Rainy"
      Case "Rainy": ans = "Sunny"
    End Select
    Console.WriteLine(ans)
  End Sub
End Class