Дан массив натуральных чисел. Найти сумму элементов,кратных данному K- QBasic(Бейсик)

cls
input n
dim a(n)
randomize timer
for i =1 to n
a(i)=int(rnd(1)*50 +1)
next i
input k
for i = 1 to n
? a(i);
if a(i)/k=0 then s=s+a(i)
next i
? s

cls
input n
dim a(n)
randomize timer
for i =1 to n
a(i)=int(rnd(1)*50 +1)
next i
input k
for i = 1 to n
? a(i);
IF a(i) MOD k=0 THEN s=s+a(i)
next i
? s