// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(10,100);
s.Where(p->p mod 10=0).Println; // а
Writeln(s.Where(p->(p mod 3=0) and (p mod 7 <> 0)).Count); // б
Writeln(s.Where(p->p mod 5=0).Average) // в
end.
Результат
10 20 30 40 50 60 70 80 90 100
26
55
Замечание: для решения a), б) или в) нужна лишь одна из помеченных соответствующих пунктом строк.