open System

​

​

​

let readInput() =

    let str = Console.ReadLine()

    str.Split [| ' ' |]

    |> Array.map int

​

​

let minDiffPairs  l = 

    let res = 

        l 

        |> Array.sort

        |> Array.windowed 2

        |> Array.map (fun [|a;b|] -> abs (a - b) , (a,b) )

    // get min

    let min = res |> Array.minBy(fun (x , _) -> x) |> fst

    res

    //filter pairs with difference = min

    |> Array.filter( fun (x, _) -> x = min)

    //return pairs

    |> Array.map( fun (_, (a,b)) -> string a + " " + string b)

    |> String.concat " "

​

let solution = readInput >> minDiffPairs

​

[<EntryPoint>]

let main argv = 

    let n = Console.ReadLine()

    solution() |> printfn "%s" |> ignore

    0