Imports System

Public Module Module1

    Public Sub Task2()

        Dim n as integer

        Dim nArraySize as integer = 20

        Dim nNumbers(nArraySize  - 1) as decimal

            For i = 0 to 0

        n = nNumbers(i) = Input("Enter a number") 

    Next

    Dim r as integer

    r = n mod 2

        For i = 0 to 20

        if r = 0 then

        nNumbers(i) = n + 10 

    else

            r = 1

        nNumbers(i) = n - 10 

    end if

    Next

​

End sub

​

    Public Function Input(sPrompt as string)

        console.writeline(sPrompt)

        Dim sInput as string

        sInput = console.readline()

end Function

​

​

Public Sub Main()

    Task2

    End Sub

End Module