bn fnhhn

Option Strict On
Module Module1


    Sub Main()
        Dim days As Integer = CInt(Console.ReadLine())
        Dim weeks As Integer = 0
        If days > 7 Then
            weeks = CInt(days / 7)
            days = days - weeks * 7

        End If
        If weeks > 0 Then
            Console.WriteLine(weeks & " weeks and " & days & " days")
        Else
            Console.WriteLine(days & " days ")

        End If





        Console.ReadKey()

    End Sub

End Module