Дан ряд из 15 чисел. найти среднее арифметическое всех нечетных чисел и вывести. паскаль

//PascalABC.NET
begin
  readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.