Формат ввода Вводятся строки положительных целых чисел, записанных через пробел.

Формат вывода
Нужно найти строку с наибольшим количеством чисел, кратных семи. Если таких строк несколько, то выбрать ту, что встретилась первой. Вывести из этой строки числа, кратные семи, через запятую и пробел в исходном порядке.

Пример 1
Ввод Вывод
78 46 33 30 41 42 1 49 27 38 86 70 86 83
41 38 71 16 38 21 54 99 50 75
21 48 84 91 72 98 85 87 16 50 3
89 44 56 87 39 29 89 100 83
21, 84, 91, 98
Пример 2
Ввод Вывод
14 23 13 10 59
19 3 35 16 62 95 83 69 34 63
39 60 56 57 28 100 54 73
35, 63

Шестнадцатеричные цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A (10), B (11), C (12), D (13), E (14), F(15).

– По условию цифры не превосходят 6, тогда поразрядные суммы не превосходят 6 + 6 = C. Отвергаем вариант 1: в нем появилось F.

– Поразрядные суммы, как следует из предыдущего наблюдения, записываются одной цифрой. Поэтому не подходит вариант 2, в котором 3 цифры.

– Цифры в результате должны идти в порядке возрастания, чего нет в варианте 4, 7 > 6.

Остаётся единственный вариант: 3) 8B. Он получится, например, если исходные числа равны 35 и 56

Const n=5;
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i])                      ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if i mod 2<>0 
then begin q:=q+1;
c[q]:=a[i]; 
q:=q+1;
c[q]:=b[i]; 
end; 
end;
for i:=1 to n do 
if b[i]>0 
then begin   
q:=q+1;   
c[q]:=b[i]; 
 end; 
if q=0 
then writeln ('условие не выполняется') 
else begin
for i:=1 to q do
write (' ',c[i]);
end
end.

P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.