составить программу и написать блок-схему

[юля7777777]

сделала 3 задания, а 4 не могу...(((
помогите!!
известен объем продукции, выпускаемый пятью предприятиями отрасли. вычислить средний объем продукции, выпускаемый одним предприятием.
нужно составить программу и написать блок-схему.
заранее спасибо

[DoDge_VipeR]

s:=0;
for i:=1 to 5 do
s:=s+o[i];
s:=s/5;

[юля7777777]

извени, не поняла, ты мне можешь пожалуйста её полностью написать, например так(вообщем полностью):
Private Sub CommandButton1_Click()
Dim l As Integer
Dim dm As Single
l = Val(TextBox1.Text)
dm = (l ^ 3) * 1
Label3.Caption = Format$(l) + "ëèòðû- ýòî" + _
Format$(dm) + "êóá.äì"
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Click()

End Sub

[DoDge_VipeR]

ты мне можешь пожалуйста её полностью написать

нет не могу - в Basic-e не силен)

[юля7777777]

жалко( все-равно спс:*