Найти среднее арифметическое чисел от 1 до n( n- вводится с клавиатуры) в basic - составить не менее 2 видов циклов.

Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end