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