Найти среднее арифметическое 6 рандомных чисел до 100 в массиве

const n=6;var   sa: real;  i: integer;  var a: array[1..n] of integer;begin  sa:=0;  for i:=1 to n do begin    a[i]:=random(101);    write (a[i]:4);    sa:=sa+a[i];  end;  sa:=sa/n;  writeln;  writeln ('Среднее арифметическое = ',sa)end.----------результат:------------ 97 37 88 35 39 55Среднее арифметическое = 58.5