program W implicit none integer::H(3) read*,H print"(A)",merge("A",merge("B","C",maxval(H)==H(2)),maxval(H)==H(1)) print"(A)",merge("A",merge("B","C",maxval(H)/=H(2).and.minval(H)/=H(2)),maxval(H)/=H(1).and.minval(H)/=H(1)) print"(A)",merge("A",merge("B","C",minval(H)==H(2)),minval(H)==H(1)) end program W