Напишите пожалуйста программу. Дана последовательность чисел, количество чисел неизвестно, оканчивается 0. Найти сумму и количество чисел, оканчивающихся на 7 и кратных 3.

begin
  var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 10=7) and (t mod 3=0))
      .ToArray;
  Writeln('Сумма ',a.Sum,', количество ',a.Count)
end.


33 -77 117 27 -15 0
Сумма 144, количество 2