Imports System

Public Module Module1

    Public Sub Main()

        dim mark as integer

        dim total as integer = 0

        Console.WriteLine("Enter 5 marks")

        for i = 1 to 5

            Console.Writeline("Enter mark "&i)

            mark = console.ReadLine()

            total = mark + total

        next 

    console.writeline("Total is "& total)

    End Sub

End Module