Дан массив из 15 элементов, найти среднее арифметическое этих элементов.
Помогите, срочно нужно

const n=15;var  a: array[1..n] of integer;  sa: real;  i: byte;begin  writeln ('Введите ',n,' чисел: ');  sa:=0;  for i:=1 to n do begin;    read (a[i]);    sa:=sa+a[i];  end;  sa:=sa/i;  writeln ('Среднее арифметическое = ',sa);end.-------------------------------Введите 15 чисел: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15Среднее арифметическое = 8