Задана последовательность целых чисел. Выяснить сумму элементов массива ,у которых порядковый номер совпадает со значениями- QBasic(Бейсик)

input n
dim a(n)
for i=1 to n
input"vvedite element ",a(i)
next
print "massiv"
for i=1 to n
print a(i);
next
print
for i=1 to n
if i=a(i) then s=s+a(i)
next
print s