lab1

 //Zadanie 1.8
         (*
         [<EntryPoint>]
         let main argv =
             printfn "Program oblicza dwumian Newtona"
             printfn "Podaj n : "
             let n = int (Console.ReadLine())
             printfn "Podaj k : "
             let k = int (Console.ReadLine())

             let rec dwumian(n, k) =
              if k = 0 then
               1
              elif k = n then
               1
              else
                 dwumian(n-1,k)+dwumian(n-1,k-1)

             Console.WriteLine(dwumian(n,k))

             0 // return an integer exit code
         *)

        //Zadanie 1.9
        (*
        [<EntryPoint>]

        let main argv =
            printfn "Czy liczba jest liczba pierwsza "
            printfn "Podaj n : "
            let n = int (Console.ReadLine())
            let k = 2
            let rec pierwsza (n,k)=
             if n < 2  then
                Console.WriteLine("Liczba nie jest liczba pierwsza")
             elif k<n  then
                if n%k=0 then
                 Console.WriteLine("Liczba nie jest liczba pierwsza")
                else
                 pierwsza(n,k+1)
             else
                 Console.WriteLine("Liczba jest liczba pierwsza")

            Console.WriteLine(pierwsza(n,k))

            0 // return an integer exit code
            *)