Дан массив М(х) вычеслители среднее арифметическое значение элементов массива М- QBasic(Бейсик)

rem ololo;
cls
dim a(10) 
s=0
for i=1 to 10 
input (a(i)
nexti
for i=1 to 10
s=s+a(i)
next i
sa=s/10
print sa
end