дан массив 0из 6 элементов. найти среднее арифметического элементов этого массива. в паскале

const n = 6;var a: array[1..n] of integer; i, s: integer;begin for i := 1 to n do begin a[i] := random(20); s := s + a[i]; write(a[i], ' '); end; writeln; writeln('Среднее арифметическое эл. массива: ', s / n);end.

Program Tanina_domashka;

  i:byte;

  summa:integer;

  o:array[1..6] of integer;

 Begin

 Writeln('Массив');

 For i:=1 to 6 do

  Begin

    o[i]:=random(1001)-500;

    Writeln('Элемент массива №',i,' = ',o[i]);

  End;

 For i:=1 to 6 do

   summa:=summa+o[i];

 Writeln('Среднее арифметическое элементов массива = ',summa/6);

 End.