Imports System

Public Module Module1

    Public Sub Main()

        dim month, day as double

        Console.WriteLine("month")

        month=Console.ReadLine()

        if (month=1) then

            Console.WriteLine("jan")

        else if(month=2) then

                Console.WriteLine("feb")

            end if

            Console.Writeline("day")

            day=Console.ReadLine()

            if(day=1) then

                Console.WriteLine("mon")

            else if (day=2) then

                    Console.WriteLine("tue")

                end if

    End Sub

End Module