PROGRAM SUMA;      
 USES WINCRT;
        VAR a,b,c:INTEGER;
BEGIN
        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: ', C);
END.