Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 5

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger(n=);
  var a:=ArrRandom(n,1,10); a.Println;
  Writeln(Среднее ,a.Average:0:5);
  var s:=;
  for var i:=0 to n-1 do
    if a[i]=5 then s+=i+1+ ;
  if s.Length>0 then Writeln(Номера элементов, равных 5: ,s)
  else Writeln(Нет элементов, равных 5)
end.

Тестовое решение:
n= 15
5 3 7 2 10 4 1 5 5 3 8 7 7 3 1
Среднее 4.73333
Номера элементов, равных 5: 1 8 9