задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива. Пожалуйста, составьте программу в паскале:)

Задачка в один оператор)))// PascalABC.NET 3.0, сборка 1150 от 22.01.2016begin  Writeln(ArrRandom(10,1,99).Println.Where(x->x mod 2=0).Average)end.Тестовое решение:96 42 79 85 16 22 50 62 54 4047.75"Школьный подход" (видимо, короткому решению у нас не учат)// PascalABC.NET 3.0, сборка 1150 от 22.01.2016const  n=10;var  a:array[1..n] of integer;  i,k,s:integer;begin  s:=0;  k:=0;  Randomize;  for i:=1 to n do begin    a[i]:=Random(99)+1;    Write(a[i],' ');    if a[i] mod 2 = 0 then begin      s:=s+a[i];      Inc(k)      end    end;  Writeln;  Writeln(s/k)end.Тестовое решение:22 22 58 41 54 80 71 65 47 99 47.2