Imports System

Public Module Module1

    Public Sub Main()

    Dim sub1 As Integer

    Dim sum As  Integer = 0

    Dim average As Single

    Dim j As Integer = 0

Do

        Console.Write("write subject marks")

        sub1=Console.Readline

        j=j+1

        loop until j=5 

    End Sub

End Module