Даю высокие баллы!!! Пожалуйста помогите!
Составить программу в бэйсике. Дан целочисленный одномерный массив состоящий из 10 элементов, сдвинуть исходный массив вправо на два элемента.

Sub Zadanie()    n = 10    n = n - 1    ReDim A(n+2)    s = ""    For i = 0 To n        A(i) = Round(Rnd * 10)        s = s & A(i) & " "    Next    for i = n to 0 step -1        A(i + 2) = A(i)    next    A(0) = 0    A(1) = 0    s = s & vbNewLine & vbNewLine    For i = 0 To UBound(A)        s = s & A(i) & " "    Next    MsgBox sEnd SubCall Zadanie()Проверялось в VBScript