Sumar_enteros

=__**SUMAR DOS NUMEROS ENTEROS**__= > > **Programa que suma dos números enteros leídos desde teclado.**

code format="pascal" PROGRAM Sumar ; VAR iNum_1, iNum_2, iSuma : Integer ; BEGIN Writeln ; Write ('Escribe un numero entero: ') ; ReadLN (iNum_1) ;

Write ('     otro numero entero: ') ; ReadLN (iNum_2) ;

iSuma := iNum_1 + iNum_2 ;

Writeln ; Writeln ('Su suma vale: ', iSuma) ;

WriteLn ; WriteLn ('============================') ; WriteLn (' Pulsa RETURN para terminar') ; Write  ('____________________________') ; ReadLn ; END. { FIN del PROGRAMA } code