implicit none character n*9 read(*,*)n if ("n"=="Hello World!") then write(*,*)"Hello World!" else write(*,*)"Hello World!" end if end