program Hello_World
    implicit none
    character(20)::S
    read*,S
    print"(A)","Hello World!"
end program Hello_World