|
program AAR13021;
uses Crt;
var Mayor, Menor,
Suma : Integer;
begin
ClrScr;
Write( 'Introduzca
primer numero entero: ' );
ReadLn( Mayor );
Write( 'Introduzca
segundo numero entero: ' );
ReadLn( Menor );
Suma := 0;
if
( Mayor > 0
) and (
Menor < 0
) then
begin
repeat
Write( Menor, ' '
);
Suma := Suma + Menor;
Menor := Menor + 1
until Menor
> Mayor;
WriteLn;
Write( 'La suma es
', Suma );
end
else
Write( 'ERROR: El primer numero
debe ser mayor que cero y el segundo menor que cero.' );
end.
|
