C клавиатуры вводятся произвольные числа. Нужно вычислить среднее арифметическое всех

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

function ReadWhileSum(cond: integer-gt;boolean): sequence of integer;

begin

 var s := 0;

 while True do

 begin

   var x := ReadInteger();

   s += x;

   if not cond(s) then break;

   yield x;  

 end;

end;

begin

 Println('Сред. арифм. =',ReadWhileSum(sum -gt; sum lt; 150)

                                                                        .Where(t-gt;t.IsEven).Average);

end.