implicit none integer(8) a,b character(1) e,m,l,n read(*,*) e read(*,*) m a=ichar(e) b=ichar(m) if (a==0 .and. b==0) then a=47 b=47 end if l=char(a) n=char(b) write (*,*) "(",l,n,l,")/" end