Дан массив натуральных чисел а1 а2 указать элементы у которых остаток от деления на м равен l visual basic

N=0, s=1 1 < = 1000  ⇒ true; s = s*3 = 1*3 =3, n = n+3 = 0+3 = 3 3 < = 1000  ⇒ true; s = 3*3 = 9, n = 3+3 = 6 9 < = 1000  ⇒ true; s = 9*3 = 27, n = 6+3 = 9 27 < = 1000  ⇒ true; s = 27*3 = 81, n = 9+3 = 12 81 < = 1000  ⇒ true; s = 81*3 = 243, n = 12+3 = 15 243 < = 1000  ⇒ true; s = 243*3 = 729, n = 15+3 = 18 729 < = 1000  ⇒ true; s = 729*3 = 2187, n = 18+3 = 21 2187 < = 1000  ⇒ false на экран будет выведено значение n = 21 

Сортировка по возрастанию: const n=20;   var   a: array[1..n] of integer;   i,j,t: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(51)-25;     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]> a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln end. пример: исходный массив: 18 2 16 17 -14 -15 -18 -18 9 -5 -4 -9 -7 12 24 16 11 15 -24 22  отсортированный массив: -24 -18 -18 -15 -14 -9 -7 -5 -4 2 9 11 12 15 16 16 17 18 22 24