Сумма положительных и произведение отрицательных элементов одномерного массива

Module Module1
 
    Sub Main()
        'Объявление переменных используемых в программе
        Dim i, n, k, S, P As Integer
        'i - счетчик цикла, n - количество элементов массива,
        'k - индекс массива
Повторить:
        '1. Ввод количества элементов
        Console.WriteLine("Введите количество элементов: ")
        n = Console.ReadLine()
        'Объявление массива действительных чисел с именем R
        Dim R(n) As Single
 
        '2. Ввод элементов массива
        For i = 0 To n 'Цикл перебора элементов массива
            Console.WriteLine("Введите элемент массива R({0}): ", i)
            R(i) = Console.ReadLine() 'Чтение элемента массива
        Next
 
        '3. Накопление суммы
        For i = 0 To n
            If R(i) > -10 And R(i) < 10 Or R(i) <> k Or R(i) > -100 And R(i) < 100 Then
                S = 0
                S += i
            End If
        Next
 
        '4. Накопление произведения
        For i = 0 To n
            If R(i) > -10 And R(i) < 10 Or R(i) <> k Or R(i) > -100 And R(i) < 100 Then
                P = 1
                P *= i
            End If
        Next
 
        '5. Печать результата
        Console.WriteLine(ControlChars.CrLf &
                          "Результат")
        For i = 0 To n
            Console.WriteLine("Сумма = {1:#.####}", S, i, R(i))
        Next
        For i = 0 To n
            Console.WriteLine("Произведение = {1:#.####}", P, i, R(i))
        Next
 
        Console.WriteLine(ControlChars.CrLf &
                          "Если вы хотите продолжить работу с программой нажмите " &
                          "клавишу (о), выйти из программы - любая другая клавиша.")
        If Console.ReadKey(True).Key = ConsoleKey.J Then GoTo Повторить
 
    End Sub
 
End Module

 '1. Ввод количества элементов
        Console.WriteLine("Введите количество элементов: ")
        n = Console.ReadLine()
        'Объявление массива действительных чисел с именем R
        Dim R(n) As Single

 '1. Ввод количества элементов
        Console.WriteLine("Введите количество элементов: ")
        n = Console.ReadLine()
        'Объявление массива действительных чисел с именем R
        Dim R(n-1) As Single

S = 0
S += i