Дан массив из 9 чисел

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

Pascal

program lol;

var
a: array [1..9] of real;
sum: real;
I: integer;

begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.