Option Strict On

Module Module1
    Sub Main()
        'let'
        Dim tmp() As Long = Array.ConvertAll(
            Of String, Long)(Split(Console.ReadLine()), AddressOf Long.Parse)
        Dim A1 As Long = tmp(0)
        Dim A2 As Long = tmp(1)
        Dim A3 As Long = tmp(2)

        'var'
        Dim A() As Long = New Long() {A1, A2, A3}
        Dim ans As Long = 0
        Array.Sort(A)

        For i As Int32 = 0 To UBound(A)
            If i <> 0 Then
                ans += Math.Abs(A(i) - A(i - 1))
            End If
        Next

        Console.WriteLine(ans)

    End Sub
End Module