C клавиатуры вводятся произвольные числа. Необходимо вычислить среднее арифметическое всех введенных четных чисел. Условием выхода из цикла является сумма чисел больше 150. Написать программу на языке Паскаль.

function ReadWhileSum(cond: integer->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 -> sum < 150)

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

end.