Promedio de Notas, ingresando califiación

program repite;
uses wincrt;
var
i,n,nota:integer;
begin
writeln('cuantas notas seran procesadas');
readln(n);
for i:= 1 to n do
begin
writeln('ingresa la nota',i);
readln(nota);
end;
end.