program Main implicit none character(1000001) :: S integer a, i, k, r, u, y, z integer ansY, ansA, ansX integer :: j = 1 data a, i, k, r, u, y, z/7*0/ read *, S do while (S(j:j) .ne. " ") select case(S(j:j)) case ("a") a = a + 1 case ("i") i = i + 1 case ("k") k = k + 1 case ("r") r = r + 1 case ("u") u = u + 1 case ("y") y = y + 1 case ("z") z = z + 1 end select j = j + 1 end do ansY = min(y, u, k, a, r, i) ansA = min(a/2, k, r, i) ansX = min(y, u/3, z/2, k, i) print *, ansY, ansA, ansX end program Main