grading

Imports System

Module Program
Sub Main()
Dim marks As Integer = 0

  Console.WriteLine("Enter Your CAT grade: ")
  marks = Integer.Parse(Console.ReadLine())
  
  If marks >=0 And marks <=33 Then
    Console.WriteLine("You have failed CAT")
  End If
  
     If marks >=34 And marks <=59 Then
      Console.WriteLine("You have Moderately Passed CAT")
     End If
    
    If marks >=60 And marks <=79 Then
        Console.WriteLine("You have Passed CAT")
    End If
      
        If marks >=80 And marks <=100 Then
        Console.WriteLine("You have got a Distinction in CAT")
        End If
If marks >100 Then
        Console.WriteLine("Impossible!")
End If
End Sub

End Module