ть,что имеется по крайней мере 8 ящиков с одним из указанных видов фруктов?
1.дисковод
begin
Range(100, 999).Where(x -> x mod 7 = 0).Aggregate(0, (s, x)-> s + x).Println;
end.