[Матвик]

ну у меня есть часть кода так

[code][/A(1) = -36
A(2) = 7
A(3) = 5
A(4) = 4
For i = 1 To 4
If i = 1 Then
If A(i) > 0 Then
y = Sqr(A(i))
Else
y = 0
End If
End If
Next iCODE]

у я хочу чтоб процедура подсчитала Y и выводила результат