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

Uses crt; var a: array[1… 1000] of integer; n,i,sum: integer; beginwrite ('Введите количество оценок: '); 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.