if(признак делимости или определение последней цифры) then
begin
Считаем сумму чисел в цикле while(условие) do
вывод суммы и кол-ва
end;
if(признак делимости или определение последней цифры) then
begin
Считаем сумму чисел в цикле while(условие) do
begin
вывод суммы и кол-ва
end;
end;