let ``No.21 平均の差`` () =
    let N = int <| stdin.ReadLine()
    let K = int <| stdin.ReadLine()
    let s = [ for i in 1..N -> int <| stdin.ReadLine() ] |> List.sort
    printfn "%d" <| s.[N-1] - s.[0]
``No.21 平均の差`` ()