Imports System

Public Module Module1

    Public Sub Main()

        Dim sum, summ,  R, R2,  D, N(5)as Integer 

        For i = 1 to 5

        Console.WriteLine("Enter a single digit number")

        N(i) = Console.ReadLine()

    Next

    Sum = ( N(1) * 5) + ( N(2) * 4) + ( N(3) * 3 ) + ( N(4) * 2) + ( N(5) * 1 )

    R = Sum MOD 11

    IF R = 0 Then

        Console.WriteLine("The check digit is correct")

    ElseIf R <> 0 then

        Summ = ( N(1) * 5) + ( N(2) * 4) + ( N(3) * 3 ) + ( N(4) * 2)

        D = Summ MOD 11

        R2 = 11 - D

        Console.WriteLine(R2 & " " & "is the check digit")

        End IF

    End Sub

End Module