Hola a tod@s:
Hace 2 días que llevo con este programa y con ayuda de un amigo he podido crear un programa que me permite introducir un codigo y SI no es correcto pues me vuelve a preguntar y si es correcto pues finaliza el programa.
Quisiera añadir, cuando introduces el codigo correcto, que se abra automáticamente un archivo de video.
Se los agradecería enormemente, es para una sopresa a un amigo que estoy haciendole un juego....
Este es mi programa:
PROGRAM RUBEN;
VAR
PASS, PASS1: STRING;
BEGIN
PASS:='VISTAFLOR';
WHILE PASS<>PASS1 DO
BEGIN
WRITE ('ESCRIBE EL CODIGO: ');
READLN (PASS1);
IF PASS<>PASS1 THEN
BEGIN
WRITELN ('ERROR INTRODUCE CODIGO');
END;
END;
IF PASS=PASS1 THEN
BEGIN
WRITELN ('LA CONTRASEÑA ES CORRECTA');
END;
END.
Muchas gracias.
