Imports System

Public Module Module1

    dim grade as double, remarks as string

    'maA'am pag float po "NOT DEFINED" nakalagay'

    Public Sub Main()

        Console.WriteLine("INPUT GRADE")

        grade= console.ReadLine

        if grade>= 99.01 then

            remarks= "INVALID"

        ElseIf grade<=72.90 then

            remarks= "INVALID"

        ElseIf grade>=74.50 then

            remarks= "PASSED"

        Else

            remarks= "FAILED"

        end if 

        console.Write("REMARKS: " & remarks)

    End Sub

End Module