Паскаль. Определить средний балл одного ученика с помощью массива или цикла с предусловием

циклread (n); {кол-во оценок}for a:=1 to n dobegin read (c); оценки s:=s+c;end;s:=s/n;write (s);end.