Составьте программу, которая вычисляет средний балл по информатике в классе. Количество

программка для считывания среднего балла
где
количество воспитанников хоть какое число
и количественные отметки тоже вводим любые от 1 д о 5
Var
a : array [ 1 . . 100 ] of integer ;
i , n , o , s : integer ;
begin
s : = 0;
read ( n ) ; //считывание кол-ва воспитанников//
for i : = 1 to n do
begin
read ( o ) ;
s : = s + o ;
end;
writeln ( ( s / n ) : 17 : 1 ) ;
end .