(*__________________________________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (RRH) 13.1: Media aritmetica de numeros introducidos

   Web del Autor: http://www.carlospes.com
  __________________________________________________________________________*)

program ARH13011;

uses Crt;

var
   Seguir : Char;
   Acumulador, Contador, Numero : Integer;

begin
   ClrScr;
   Acumulador := 0;
   Contador := 0;

   repeat
      Write( 'Introduzca un numero entero: ' );
      ReadLn( Numero );

      Acumulador := Acumulador + Numero;
      Contador := Contador + 1;

      WriteLn( 'Ha introducido ', Contador, ' numero(s).' );
      WriteLn( 'La suma es ', Acumulador );

      WriteLn;
      Write( 'Desea introducir otro numero (s/n)?: ' );
      ReadLn( Seguir )
   until Seguir = 'n';

   Write( 'La media aritmetica es ', Acumulador / Contador:0:2 )
end.