var
  a, b: integer;

begin
  writeln('Напишите числа, чтобы завершить программу напишите 0');
  a := 1;
  b := 0;
  while a <> 0 do
  begin
    readln(a);
    if (a mod 7 = 0) or (a mod 10 = 1) then
      b := b + a;
  end;
  writeln('Сумма всех чисел, кратных на 7 и оканчивающихся на 1: ', b);
end.