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