Imports System

Public Module Module1

    Public Sub Main()

        dim n(19) as integer

        dim i as integer

        dim r as integer

        dim t as integer

        dim x as integer

        console.WriteLine("enter a number")

        r = console.ReadLine()

        x = r

        do until x <= 0                   'this command is used to figure out if the number is odd or even

            x = x - 2

            if x < 0 then      'if the number entered is odd then add by 10

                for i = 1 to 19

                n(0) = r

                n(i) = r + 10

                r = r + 10

            next

        elseif x = 0 then      'if the number entered is even then it subtracts 10 

                for i = 1 to 19

                n(0) = r

                n(i) = r - 10

                r = r - 10  

        next 

        end if

        loop

    for t = 1 to 19 

console.WriteLine(n(t))       ' displaying

next

    End Sub

End Module