Microsoft Small Basic

Program Listing:
Embed this in your website
suma=0
cate=0
citire:
nr=TextWindow.ReadNumber()
If (nr<>0) Then
  suma=suma+nr
  cate=cate+1
  Goto citire
EndIf
media=suma/cate
TextWindow.WriteLine("Media artimetic─â este: "+media)
Copyright (c) Microsoft Corporation. All rights reserved.