Как я понял, то:
1. Используем SUMIF(СУММЕСЛИ), указываем диапазон суммирования, и условие для суммирования.
2. Находим минимальное значение среди всех этих сумм.
Навички
память народу
выдкриття
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>