Дана последовательность из М чисел. Все отрицательные посреди них числа возвести

если сделаю на C++ либо Pascal, пойдет?

Программка приложена файлом для Visual Basic for Applications

Ниже текст этой программки продублирован

Sub trans_sequence(ByVal M)'наполнение массива и творенье преобразованной последовательности чисел  N = M  Dim mas()  ReDim mas(M)  Sg = ""  Sf = ""  Randomize  For i = 1 To M    mas(i) = Round((Rnd(100) - 0.5) * 100)    Sg = Sg + Str(mas(i))    If (mas(i) lt; 0) Then mas(i) = mas(i) * mas(i)    Sf = Sf + Str(mas(i))    If i lt;gt; M Then           Sg = Sg + ","       Sf = Sf + ","    End If  Next i        MsgBox "последовательность чисел " + Sg + Chr(10) + "перевоплощенная последовательность " + SfEnd Sub


Sub test()  trans_sequence (25)End Sub