program  franjs;

uses wincrt;
 var
 nota ,acu, cont: integer;
 seguir: char;
 prom: real;





 begin

 clrscr;

 writeln (' ingrese nota');
 readln ( nota);
 acu:= acu+nota;
 cont := cont+1;
 writeln ('desear ingresar otra nota si no hay mas n');
 readln (seguir);
 until seguir = 'n';
 writeln (' la sumatoria es',acu);
 writeln (' la cantida es de notas  es ', cont);
 prom := acu/cont;
 writeln (' el promedio es',prom  :5:2);
 end.