Module Module1

    Sub Main()

        'Dim S As String = Console.ReadLine()
        'Dim L As New List(Of String)({"Sunny", "Cloudy", "Rainy"})
        'Dim i As Integer

        'L.Add("Sunny")

        'For i = 0 To L.Count - 2
        '    If L(i) = S Then
        '        Console.WriteLine(L(i + 1))
        '        Exit For
        '    End If
        'Next

        ''Console.ReadLine()

        Dim s As String = Console.ReadLine()
        Dim l(3) As String
        Dim i As Integer

        l(0) = "Sunny"
        l(1) = "Cloudy"
        l(2) = "Rainy"
        l(3) = "Sunny"

        For i = 0 To 2
            If l(i) = s Then
                Console.WriteLine(l(i + 1))
                Exit For
            End If
        Next

        'Console.ReadLine()

    End Sub

End Module

