Imports System

Public Module Report

    'Psedocode

    'INPUT Score

    'Percentage <-- Score/20*100

    'If Percentage > 88 

    'Then

    'OUTPUT A*

    'ELSEIF Percentage < 88 And > 76

    'OUTPUT A

    'ElseIF Percentage < 76 And > 64

    'OUTPUT B

    'ElSEIF Percentage < 64 And > 47

    'OUTPUT C

    'ElSE 

    'OUTPUT Fail

    'ENDIF

    'OUTPUT Percentage

    Public Sub Main()

        Console.WriteLine("This test was total 20 marks")

        Console.WriteLine("Please enter your score")

        Dim Score As Integer

        Score = Console.ReadLine()

        Dim Percentage As Integer

        Percentage = Score/20*100

        If Percentage > 88 Then

            Console.WriteLine("Congratulations, you have gotten A*")

        Else If Percentage < 88 And Percentage > 76 Then

                Console.WriteLine("Well done, you have gotten A")

            Else If Percentage < 76 And Percentage > 64 Then

                    Console.WriteLine("You have gotten B")

                Else If Percentage < 64 And Percentage > 47

                        Console.WriteLine("You have gotten C")

            Else 

                Console.WriteLine("I am so sorry but you have failed your test")

        End If

        Console.WriteLine("Your percentage is "&Percentage)

        Console.ReadLine()

    End Sub

End Module