[ForTran 7] X Format
program x format
character name*20
integer birthyr
real weight
write(*,*)'Enter your name :'
read(*,*)name
write(*,*)'Enter your Birth Year :'
read(*,*)birthyr
write(*,*)'Enter your weight :'
read(*,*)weight
write(*,1)name,birthyr
1 format('Your name is :',A10,2x,'Birth Year is:',i4)
write(*,*)'Weight is :',weight
end