Pascal Repita Hasta

program hasta;

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 repite. }

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