PROGRAM QnA IMPLICIT NONE CHARACTER(LEN=50) :: QUESTION WRITE (*,*) "Bem-vindo ao programa QnA!" WRITE (*,*) "Faça-me uma pergunta: " READ (*,'(A)') QUESTION IF (INDEX(UPCASE(QUESTION), "O QUE É ESTA WEB APP?") /= 0) THEN WRITE (*,*) "Esta web app é um editor de código Fortran com realce de sintaxe, autocompletar e muitos mais recursos!" WRITE (*,*) "Permite-lhe escrever, editar e executar código diretamente no navegador, sem necessidade de instalar qualquer software." WRITE (*,*) "O realce de sintaxe torna o seu código bonito, e a funcionalidade de autocompletar ajuda-o a escrever código mais rápido e com maior precisão." WRITE (*,*) "Para além disso, possui muitas outras funcionalidades como a capacidade de desfazer/refazer, copiar ou exportar código, trabalhar offline, etc!" ELSE WRITE (*,*) "Bem, do que está à espera, comece a editar o seu código agora mesmo." END IF END PROGRAM QnA