Microsoft Small Basic

Program Listing: WMW123
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)