Найти среднее арифметическое всех натуральных чисел из данного спектра, которые

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadInteger2('Введите границы диапазона a и b:');

 var (s, n) := (0, 0);

 for var x := a to b do

   if x.IsOdd and (x mod 5 lt;gt; 0) then (s, n) := (s + x, n + 1);

 Println(s / n)

end.

Пример

Введите границы спектра a и b: 15 149

82.5185185185185