program hellowrite
  implicit none
  integer:: a,b,c
  character*20:: hello
  
  hello="Hello World"
  a=1
  
  print *,hello  
  write(*,'(I2)') a 
  read (*,'(I2 I2)') b,c
  write (*,'(I2 I2)') b,c
  
  write(*,"(A)") hello 
  
    
end program hellowrite