domingo, 17 de julio de 2011

■ Pascal 003 ► Sumar dos enteros

Ejercicio 003: Leer dos números enteros y obtener la suma.

Program Pas_003;
Uses crt;
Var
     n1, n2, suma : integer;
Begin
     ClrScr;
     Write ('Ingresa valor 1: ');
     Readln (n1);
     Write ('Ingresa valor 2: ');
     Readln (n2);
     suma := n1 + n2;
     Write ('La suma es: ',suma);
     ReadKey;
End.

No hay comentarios:

Publicar un comentario