В чем ошибка ? VBS
Dim X()
Dim Y()
n = inputbox(vblf& " напиши значение ''n''(количество расчетов)")
Redim X(n)
Redim Y(n)
Randomize
For i = 1 to n
X(i) = 5 - 10*Rnd
Next
S=X(1)/i
For i = 2 to n
S = (X(1)/i+ X(i)/((i-1)*i)
Next

ms = " X " &" S " &vblf & "_______________________" & vblf
For i=1 to n
ms = ms & x(i) & " " & S & " " &vbLf
Next
ms=ms & "_______________________"

MsgBox ms ,," Кутнякова, Выручаев, "