Нужно на КуМире составить алгоритм, которые сочитает по порядку все пары чисел до 20, которые кратные трем, используя div и mod, а также переменные a,m,p,q

CONST k=10; {k - количество чисел в массиве}
VAR a:array[1..k] of integer;
    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}
    sr:real; {sr - среднее арифметическое}
BEGIN
  summ:=0; n:=0; {Обнуляем счетчики}
  for i:=1 to k do
    begin
      a[i]:=random(50); {Заполняем массив случайными числами}
      write (a[i],' '); {Выводим массив}
      if a[i] mod 2=0 then
        begin
          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}
          n:=n+1
        end
    end;
  sr:=summ/n; {Находим среднее арифметическое}
  writeln;
  writeln (sr:0:2) {Выводим среднее арифметическое}
END.
 

Поиско́вая систе́ма — это программное обеспечение, состоящее из базы данных документов, снабженной пользовательским интерфейсом, которое разработано для поиска информации во всемирной паутине. Пользуясь поисковой системой, пользователи составляют свои собственные поисковые запросы с ключевыми словами, а не используют фиксированные системой пути поиска. Веб-обозрева́тель, обозрева́тель, бра́узер или бра́узэр (от англ. Web browser; устар. бро́узер) — прикладное программное обеспечение для просмотра веб-страниц; содержания веб-документов, компьютерных файлов и их каталогов; управления веб-приложениями; а также для решения других задач. В глобальной сети браузеры используют для запроса, обработки, манипулирования и отображения содержания веб-сайтов. Многие современные браузеры также могут использоваться для обмена файлами с серверами ftp, а также для непосредственного просмотра содержания файлов многих графических форматов (gdf, jpeg, png, svg), аудио-видео форматов (mp3, mpeq), текстовых форматов (pdf, djvu) и других файлов.