Дан массив из 5 элементов, отыскать среднее арифметическое всех частей массива.

const
n = 5;

var
a: array [1..n] of integer;
i, sum: integer;
s: real;

begin
sum := 0;
writeln (Введите элементы массива.);
for i := 1 to n do
readln (a[i]);
for i := 1 to n do
begin
sum := a[i] + sum;
end;
s := sum / n;
writeln;
writeln (Среднее арифметическое одинаково , s:1:2, .);
end.