program y9000
    character(20)::a
    read(5,*)a
    print'(A)',"Hello World!"
end program y9000