program declare
      real a,b,x
      integer y
      character*20 your_name
      write(*,*)"What's your name? (less than 20 char)"
      read(*,*) your_name
      write(*,*)'How are you,', your_name,'?'
      end