Imports System

Public Module Module1

    Public Sub Main()

        dim a,b,c,d,e,total,average,num as integer

        For num = 1 to 5 step -1

        Console.WriteLine("Enter five numbers")

        Console.ReadLine()

        total = a+b+c+d+e

        Console.writeline("Total =" & total)

        average = total / 5

        Console.writeline("Average =" & average)

    next n

    End Sub

End Module