Определите сумму трехзначных чисел кратных 7

begin

 Range(100, 999).Where(x -> x mod 7 = 0).Aggregate(0, (s, x)-> s + x).Println;

end.