Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое значение его элементов. например:если массив а[5]:15,7,8,23,11, то должны получить:12,8.Пояснение : найти сумму всех элементов, и поделить на количество элементов.
Составьте пж только программу , буду благодарен

var a:array of integer;n,i,s:integer;beginwrite('Введите количество элементов массива: ');readln(n);a:=new integer[n];for i:=0 to n-1 do readln(a[i]);write ('Массив: ');for i:=0 to n-1 do write(a[i],'  ');writeln;for i:=0 to n-1 do s:=s+a[i];writeln('Среднее арифметическое всех элементов массива равно: ',s/n)end.

var a:array[1..100] of Integer; i,n,x,sum:Integer; sa:Real;begin sum:=0; for i:=1 to 100 do a[i]:=0; ReadLn(n); for i:=1 to n do begin ReadLn(x); a[i]:=x; sum:=sum + a[i] end; sa:=sum / n; WriteLn(sa); end.