(*__________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (RRH) 13.2: Calculo de sumas

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

program ARH13021;

uses Crt;

var
   Seguir : Char;
   Acumulador, N1, N2 : Integer;

begin
   ClrScr;
   Acumulador := 0;

   repeat
      Write( 'Introduzca primer numero: ' );
      ReadLn( N1 );
      Write( 'Introduzca segundo numero: ' );
      ReadLn( N2 );
      WriteLn( 'La suma es ', N1 + N2 );

      Acumulador := Acumulador + N1 + N2;

      WriteLn;
      Write( 'Desea realizar otra suma (s/n)?: ' );
      ReadLn( Seguir )
   until Seguir = 'n';

   Write( 'La suma total es ', Acumulador )
end.