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 Sub
End Module