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

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.