let f (s:string) = s.Split ' ' |> Seq.map float

Seq.zip (stdin.ReadLine () |> f) (stdin.ReadLine () |> f)
|> Seq.map (fun e -> abs ((fst e) - (snd e)))
|> Seq.sum
|> fun n -> n / 2.0
|> printfn "%f"