program speedrun
  implicit none
  integer::A,B,C
  integer::ANS
  read*,A,B,C
  ANS=huge(ANS)
  ans=min(ans,abs(a-b))
  ans=min(ans,abs(b-c))
  ans=min(ans,abs(c-a))
  print"(I0)",ans
end program speedrun