Submission #3049965

Source Code Expand

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)

        Console.WriteLine((New Long() {A + B, A - B, A * B}).Max())

    End Sub
End Module

Submission Info