Imports System

Public Module Module1

    Public Sub Main()

        Dim Mark1 As Integer

        Dim Mark2 As Integer

        Dim Mark3 As Integer

        Mark1 = Console.ReadLine()

        Mark2 = Console.ReadLine()

        Mark3 = Console.ReadLine()

        Fmark = Mark1 + Mark2 + Mark3 /3

        Console.Writeline("Average Mark is "& Fmark)

    End Sub

End Module