Option Strict On

Module Module1
    Dim a, b, x, s As Long

    Sub Main()
        Dim arr() As Long = Array.ConvertAll(Of String, Long) _
            (Split(Console.ReadLine()), AddressOf Long.Parse)

        'let'
        a = arr(0) : b = arr(1)
        x = arr.Sum \ 2 + (arr.Sum Mod 2)

        Console.WriteLine(x)

    End Sub
End Module