Print "This program sums and calcualte avarage of entered numbers"
Print

Dim array(1 To 500) As Integer
Dim entered As Integer
Dim counter As Integer
Dim total As Integer
Dim result As String

Print "Enter your numbers. When you done, just hit ENTER."

Do
    Input "Enter Number: ", entered

    If (entered = 0) Then
        Exit Do
    End If


    array(counter) = entered
    counter += 1
    result = result + Str(entered) + " "
    Print "You entered: "; result
    Print
Loop

Dim i As Integer

For i = 0 To (counter -1)
    Print "     "; array(i)
    total = total + array(i)
Next
Print
Print "Total: "; Str(total)
Print "Average:"; total/counter
Sleep