begin
  var numbers := ReadSeqIntegerWhile(x -> x <> 0).ToArray;
  Write(NewLine);
  // 1 пункт
  numbers.Where(x -> ((x mod 4 = 0) and (x mod 10 = 2))).Sum.Println;
  Write(NewLine);
  // 2 пункт
  numbers.Where(x -> (x < 100)).Count.Println;
  Write(NewLine);
  // 3 пункт
  numbers.Sum.Println;
end.