PROGRAM ATCODER

implicit none
integer :: a,b,c,count

read(*,*) a,b,c    !ここが入力欄

count = 3
if(a==b .and. b==c)then
  count = 1
else if(a==b)then
  count = 2
else if(b==c)then
  count = 2
else if(a==c)then
  count = 2
end if

! ここに出力結果
write(*,'(i0)') count

contains
!!!!!! サブルーチンは↓

!!!!!!

END PROGRAM ATCODER
