Програма на паскале для вычесления годовой оценки срочно надо помогите побольше решений

Описание прямо-таки минималистично. Буду считать, что 4 четверти, а оценка - есть среднее арифметическое, тогда:var oc,soc,n,i:integer;beginReadln(n); //узнаём кол-во "четвертей"For i:=1 to n doBeginReadln(oc);Soc:=soc+oc;End;Writeln(round(soc/n));end.Намудрил, конечно, но первое, что пришло в голову.