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

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  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= 155 3 7 2 10 4 1 5 5 3 8 7 7 3 1Среднее 4.73333Номера элементов, равных 5: 1 8 9