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.
4 Comentarios
Este comentario ha sido eliminado por el autor.
ResponderEliminarprimer comentario lol
ResponderEliminarHola, faltó el readkey para evitar que se cierre!
ResponderEliminargracias
ResponderEliminar