(*__________________________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (RRH) 13.12: Suma de numeros introducidos por el usuario
                        (Bucle repetir...hasta)

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

program EJE13121;

uses Crt;

var
   Seguir : Char;
   Acumulador, Numero : Integer;

   { En Acumulador se va a guardar la suma de los numeros
     introducidos por el usuario. }

begin
   ClrScr;

   Acumulador := 0;
   repeat
      WriteLn;
      Write( '   Introduzca un numero entero: ' );
      ReadLn( Numero );

      Acumulador := Acumulador + Numero;

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

   { Mientras que el usuario desee introducir mas numeros,
     el bucle iterara. }

   WriteLn;
   Write( '   La suma de los numeros introducidos es: ',
          Acumulador );
end.