Option Strict On

Module Module1
    Sub Main()
        'let'
        Dim tmp() As Long =
            Array.ConvertAll(Of String, Long) _
            (Console.ReadLine().Split(), AddressOf Long.Parse)
        Dim a As Long = tmp(0)
        Dim b As Long = tmp(1)

        'var'
        Dim ans As Long = a

        If b < a Then ans -= 1

        Console.WriteLine(ans)

    End Sub
End Module