PROGRAM QnA IMPLICIT NONE CHARACTER(LEN=50) :: QUESTION WRITE (*,*) "Willkommen bei dem Frage-und-Antwort-Programm!" WRITE (*,*) "Stellen Sie mir eine Frage: " READ (*,'(A)') QUESTION IF (INDEX(UPCASE(QUESTION), "WAS IST DIESE WEB-APP?") /= 0) THEN WRITE (*,*) "Diese Web-App ist ein Fortran-Code-Editor mit einem Syntax-Highlighter, Autovervollständigung und vielen weiteren Funktionen!" WRITE (*,*) "Es ermöglicht Ihnen, Code direkt im Browser zu schreiben, zu bearbeiten und auszuführen, ohne Software installieren zu müssen." WRITE (*,*) "Der Syntax-Highlighter lässt Ihren Code schön aussehen, und die Autovervollständigungsfunktion hilft Ihnen dabei, Code schneller und genauer zu schreiben." WRITE (*,*) "Außerdem verfügt es über viele andere Funktionen wie die Möglichkeit zum Rückgängigmachen/Wiederholen, Kopieren oder Exportieren von Code, Offline-Arbeiten usw.!" ELSE WRITE (*,*) "Nun, worauf warten Sie noch, fangen Sie jetzt an, Ihren Code zu bearbeiten." END IF END PROGRAM QnA