Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine("what is your age")

        dim x as integer = console.ReadLine()

        console.WriteLine("what is your gender")

        dim y as string = console.ReadLine()

        If x >= 18 then

            If y ="m" Then 

                console.WriteLine("you are man")

            else

                console.WriteLine("you are women")

            end if

        else

            If y="m" then

                console.WriteLine("you are boy")

            else

                console.WriteLine("you are girl")

            end if

        end if

    End Sub

End Module