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

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

Pascal

program lol;vara: array [1..9] of real;sum: real;I: integer;beginfor I := 1 to 9 dobeginwrite('a[', I, '] = ');readln(a[I]);sum := sum + a[I];end;writeln('Среднее арифметическое введённых чисел = ', sum/9);end.