Как написать программу в паскале которая будит вычислять оценку за четверть /

в паскале если можете распишете все решение

Uses crt;

var a:array[1 ... 1000] of integer;

n, i, sum:integer;

begin

write ('Введите количество оценок: ') ;

readln (n) ;

for i:=1 to n do

read (a[i]) ; / / считываем с клавиатуры оценки

for i:=1 to n do

sum:=sum+a[i]; //подсчитываем их суммы

writeln ('Средняя оценка:') ;

write (sum/n) ; / / выводим, разделив сумму на количество

end.