Acerca de problemas de programación

Agregue una declaración readln antes del final. Esperará a que hagas clic en Enter y luego regresarás a la interfaz de programación:

Programa LX

var r, c, y: integer

Inicio

Writeln('Ingrese la contraseña');

Escribir(' r = ');

readln(r);

Escribir (' c = ');

leer ln(c);

escribir(' y = ');

readln(y);

Si (r = 1998) y (c = 09) y (y = 17), entonces escribe (' bienvenido ')

de lo contrario escribe (' r=1998, c=09, y = 17');

readln

Fin.