c:/gdsf/web/fuentes_pascal/suma_dos

PROGRAM suma; {Ejemplo de suma de dos nσeros}
USES CRT;
VAR a, b, c : INTEGER;
BEGIN
CLRSCR;
WRITELN ('Este programa suma dos numeros:');
WRITELN (' ');
WRITE ('Introduzca un numero: ');
READLN (a);
WRITE ('Introduzca otro numero: ' );
READLN (b);
WRITELN (' ');
c := a + b;
WRITE ('EL RESULTADO ES: ');
WRITE (c);
END.