Даю высокие баллы!!! Пожалуйста помогите! Составить программу в бэйсике. Дан целочисленный одномерный массив состоящий из 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 s End Sub Call Zadanie() Проверялось в VBScript