// Task 5
    let y1 = [1; 2; 3; 4; 5; 6; 7]
    let y2 = [10; 11; 12; 13; 14]
    let rec Comb = function
    | (a1::b1, a2::b2) -> a1::a2::Comb (b1, b2)
    | (a1, [] ) -> a1
    | ( [], a2) -> a2

    printf "%A\n" ("Задание 5")
    printfn "%A" (Comb (y1, y2))