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 woman ")

            end if 

        else if y="m" then

                console.WriteLine("boy")

            else 

                console.WriteLine("girl")

            end if 

    End Sub

End Module