Tania, es para ti.

Program calif;
Uses
crt;
var
contador:integer;
x,calificacion,promedio,acumulador:real;
begin
clrscr;
gotoxy(2,2);textcolor(3);
write('Programa 23: Promedio de calificciones');
gotoxy(6,6);textcolor(4);
write('¿cCuantas calificaciones son? ');
textcolor(2);read(x);
contador:=0;
acumulador:=0;
while contador begin
gotoxy(6,8+contador); textcolor(5);
write('Calificaciones: ');
textcolor(3); read(calificacion);
contador:=contador+1;
acumulador:=acumulador+calificacion;
end;
promedio:=acumulador/x;
gotoxy(16,16); textcolor(4);
write('La calificacion es: ',promedio:5:2);
readkey;
end.