Дан массив из 13 элементов . Найти сумму элементов массива до первого элемента равного 39- QBasic(Бейсик)

CLS
N= 13
DIM a(n)
For i=1 to n
Print "a(";i;")=";
input a(i)
next i
for i= 1 to n
 if a(i) = 39 Then exit for
 s=s+a(i)
next i 
print "summa=";s

Тестирование выполнено в программе QB64 ( Скачать )