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

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