Массив состоит из 15 чисел , числа могут быть отрицательными , вычислить среднее арифметическое​

var a:array[1..15] of real;

  i:integer;s:real;

begin

  randomize;

  s:=0;

  for i:=1 to 15 do

  begin

     a[i]:=random(10)-5;

     write(a[i],' ');

     s:=s+a[i];

  end;

  writeln;

  write('s=',s/15);

end.