Module Module1

    Sub Main()
        Dim a, b, c, sum, average As Integer
        Console.WriteLine("enter a number")
        a = Console.ReadLine()
        Console.WriteLine("enter another number")
        b = Console.ReadLine
        Console.WriteLine("enter third number")
        c = Console.ReadLine
        sum = a + b + c
        average = (a + b + c) / 3
        Console.WriteLine("sum of three numbers=" & sum)
        Console.WriteLine("average of three numbers=" & average)
        Console.ReadKey()

    End Sub

End Module
