Imports System

Public Module Module1

    Public Sub Main()

        Dim Average As Decimal

        Dim Paper1 As Integer

        Dim Paper2 As Integer

        Dim TotalMark As Integer

        Console.WriteLine("Enter the Paper1 Mark")

        Paper1= Console.ReadLine

        Console.Writeline ("Enter the Paper2 Mark")

        Paper2= Console.ReadLine

        TotalMark= Paper1 + Paper2

        Console.WriteLine("The total mark is : ")

        Console.Writeline(TotalMark)

        Average= TotalMark/150 * 100

        Console.WriteLine("The Average is :")

        Console.WriteLine(Average)

    End Sub

End Module