Напишите программу поиска суммы положительных нечетных чисел, меньших 100 и некратных 3.

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  Println(Range(1,99).Where(n->(Odd(n) and (n mod 3<>0))).Sum)
end.

Результат выполнения программы:
1633