program brother integer,dimension(3)::H read(*,*)H(:) if(H(1)>H(2) .and. H(1)>H(3)) then print *,"A" if(H(2)>H(3)) then print *,"B" print *,"C" else if(H(2)<=H(3)) then print *,"C" print *,"B" end if else if(H(2)>=H(1) .and. H(2)>=H(3)) then print *,"B" if(H(1)>H(3)) then print *,"A" print *,"C" else if(H(1)<=H(3)) then print *,"C" print *,"A" end if else if(H(3)>H(2) .and. H(3)>=H(1)) then print *,"C" if(H(2)>H(1)) then print *,"B" print *,"A" else if(H(2)<=H(1)) then print *,"A" print *,"B" end if end if end program brother