С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.Паскаль

begin
  var a:=ReadSeqIntegerWhile(n->n mod 5<>0).Where(n->n>10).ToArray;
  Writeln('n= ',a.Count,', S=',a.Sum)
end.


37 -18 42 57 24 9 17 20
n= 5, S=177