Imports System

Public Module Module1

    Public Sub Main()

        dim entry,result as double

        console.writeline("Enter Marks")

        entry = console.ReadLine()

        if entry >100 then 

            entry = entry*0.75-10

        elseif entry <10

            entry = 0

        else entry = entry-10

        end if

        result = entry*2

    IF Result >35 THEN 

            console.WriteLine("Pass")

        ELSE 

            console.WriteLine("FAIL")

        end if  

    End Sub

End Module