PROGRAMA QnA IMPLICIT NONE CHARACTER(LEN=50) :: PREGUNTA WRITE (*,*) "¡Bienvenido al programa de QnA!" WRITE (*,*) "Hazme una pregunta: " READ (*,'(A)') PREGUNTA IF (INDEX(UPCASE(PREGUNTA), "¿QUÉ ES ESTA WEB APP?") /= 0) THEN WRITE (*,*) "Esta aplicación web es un editor de código Fortran con resaltado de sintaxis, autocompletado y muchas más características!" WRITE (*,*) "Te permite escribir y ejecutar código directamente en el navegador, sin necesidad de instalar ningún software." WRITE (*,*) "El resaltado de sintaxis hace que tu código luzca hermoso, y la función de autocompletado te ayuda a escribir código más rápido y con mayor precisión." WRITE (*,*) "Además, tiene muchas otras características como la capacidad de deshacer/rehacer, copiar o exportar código, trabajar sin conexión, ¡etc!" ELSE WRITE (*,*) "Bueno, ¿a qué estás esperando, comienza a editar tu código ahora mismo." END IF END PROGRAM QnA