Module _20190421

    Sub Main()

        Dim iAntena(5) As Integer
        iAntena(0) = Console.ReadLine()
        Dim iMax As Integer = iAntena(0)
        Dim iMin As Integer = iAntena(0)

        For i As Integer = 1 To 4

            iAntena(i) = Console.ReadLine()

            If iAntena(i) > iMax Then

                iMax = iAntena(i)

            ElseIf iAntena(i) < iMin Then

                iMin = iAntena(i)

            End If

        Next

        Dim iDistance As Integer = Console.ReadLine()

        If iMax - iMin > iDistance Then

            Console.WriteLine(":(")

        Else

            Console.WriteLine("Yay!")

        End If

    End Sub

End Module