Помогите написать программу ** PascalABC Создать программу: "Вводится n чисел. Найти...

Question

Помогите написать программу на PascalABC
Создать программу: "Вводится n чисел. Найти среднее арифметическое всех нечетных, кратных 3 чисел.

Answer 1

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var n:=ReadInteger('n=');
  var s:=0;
  var k:=0;
  var m:integer;
  for var i:=1 to n do begin
    Read(m);
    if Odd(m) and (m mod 3 = 0) then begin
      s+=m; Inc(k)
      end
    end;
  if k>0 then Writeln(s/k)
  else Writeln('Нет чисел, удовлетворяющих условию')
end.

Тестовое решение:
n= 10
6 3 12 15 -9 11 0 14 42 11
3