program hallo
implicit none

write(6,FMT=100) 'Hallo Welt!'

write(*,*) 'Ende ----> Enter!!!!'
100 FORMAT(A18)

read(*,*)
end program hallo
