Дан массив из 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.