Составить алгоритм определения среднего аттестата

Средний аттестата  = cумма всех полученных оценок разделить
число предметов.

Program SrBall;
var S, x, n, i:integer;
begin
write('Сколько аттестатов? '); readln(n);
for i:=1 to n do
 begin
 write('введи количество ',i,' аттестата: ');
 readln(x);
 S:=S+x;
 end;
writeln('средний = ', S/n);
end.