program main implicit none character*53::n integer::len read *,n len = LEN_TRIM(n) if(len.eq.3) then print '(a)',n else n(len+1:len+3) = "ham" print '(a)',n end if end program main