Repita Hasta 2do

program Hasta2;


uses WinCrt;


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.