Bueno tenga otra preguntilla...
program prueba;
uses crt;
Var a,b:integer;
var respuesta:CHAR;
Begin
Begin
Write('Ingrese el primer número : ');readln(a);
ClrScr;
Write('Ingrese el segundo número : ');readln(b);
ClrScr;
Writeln('La suma es : ',a+b);
repeat
until keypressed;
End;
Begin
ClrScr;
Repeat
writeln('¿Desea salir de la aplicacion?: S/N '); readln (respuesta)
Until respuesta='S';
End;
End.
En este code, el ejecutara la suma y luego te preguntara si quieres salir de la aplicacion, si la respuesta es si, pues la finalizara... Pero quiero saber como poner, para que en caso de que el usuario diga que no, se repita toda la aplicacion, es decir, vuelva a pedir los numeros y eso...
