Составьте программу вычисления среднего арифметического элементов массива а, состоящего из n элементов (n задается в блоке констант, элементы массива вводятся случайно и берутся из диапазона от -50 до 50). паскаль

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 i:integer;
 sr:real;
begin
 randomize;
 writeln('Аrray:');
 for i:=1 to n do
  begin
   ar[i]:=random(-50,50);
   write(ar[i]:4);
     sr:=sr+ar[i];
  end;
 writeln;
 sr:=sr/n;
 writeln('Sr=',sr);
end.

Пример работы программы:
Аrray:
 -17  -7  31  49 -49   7  -6  17  30  37  25 -30  23 -40   7
Sr=5.13333333333333