Program Logicander;
Uses WinCrt;
Var
contador, nota, promedio : real;
i, n : integer;
Begin
WriteLn ( '¿Cuantas notas tiene el alumno?' );
ReadLn (n);
For i:= 1 to n do
Begin
WriteLn ( 'Ingrese nota', i);
ReadLn (nota);
contador:= contador+nota;
end;
WriteLn ( 'La suma es: ', contador:3:2);
promedio:= contador/n;
WriteLn ( 'El promedio es: ', promedio:3:2);
end.
