Подсчитать сумму элементов массива, значения которых кратны 8 - QBasic

Формулировка задачи:

Здравствуйте форумчпни!!! Очень нуждаюсь в вашей помощи. Столкнулся с очень интересной задачей, решил её на Паскале, а Бейсик вооообще не поддается(( Хотя QBasic как говорят самый легкий, я вообще не представляюю как такую задачю на нем решить.... Сформировать целочисленный массив IM(N), элементами которого являются случайные числа из диапазона [3, 42]. Подсчитать сумму элементов массива, значения которых кратны 8. Вот моё решение этой задачи на Паскале, вроде все норм:

                    Листинг программы
                
 
                        
                          
                    
var i,n,s:integer;
a:array[1..100] of integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
a[i]:=random(40)+3;
if a[i] mod 8 = 0 then s:=s+a[i];
write(a[i],' ');
end;
writeln('s=',s);
readln;
end.

Очень на вас надеюсь, спасибо!!!

Решение задачи: «Подсчитать сумму элементов массива, значения которых кратны 8»

Листинг программы

input n
dim a(n)
for i=1 to n 
a(i)=int(rnd*40)+3
if a(i) mod 8 = 0 then s=s+a(i)
print a(i);
next
print
print s

Объяснение кода листинга программы

В этом коде:

Пользователю предлагается ввести значение переменной n, которая будет определять размер массива a.
Создается массив a размером n.
В цикле for от 1 до n заполняются элементы массива a случайными числами, которые кратны 40 и больше.
Если значение элемента массива a кратно 8, то оно прибавляется к переменной s, которая инициализирована нулем.
После заполнения массива a выводится на экран каждый его элемент.
Выводится значение переменной s, которая содержит сумму элементов массива a, кратных 8.