ostatnia([X|Y]) :-
    ostatnia(Y) = ostatnia([]) -> write(X);
    ostatnia(Y).

wszystkie([X|Y]) :-
    wszystkie(X) \= wszystkie([]) ->
    write(X), wszystkie(Y);
    true.

silnia(X,Wynik) :-
    X > 0 ->
    X1 is X-1,
    silnia(X1,NowyWynik),
    Wynik is NowyWynik*X;

    Wynik is 1.


szef(arek,pinokio).
szef(pinokio,adam).
szef(adam,lukasz).
szef(lukasz,rudolf).


wypiszSzef(X) :-
    szef(X,Y), Y \= false ->
    writeln(Y),
    wypiszSzef(Y);
    write('Brak kolejnych danych').

znajdzNaLiscie([], _) :-
    write('Brak szukanej liczby na liscie'), false.

znajdzNaLiscie([X|Y], Z) :-
    X = Z -> write('Nalezy');
    znajdzNaLiscie(Y,Z).

sumuj(P, K, Wynik) :-
    P = K -> Wynik is 0.

sumuj(P, K, Wynik) :-
    P < K,
    P1 is P + 1,
    sumuj(P1, K, Wynik1),
    Wynik is Wynik1 + P1.

sumujOd(X) :-
    Y is X + 20,
    sumuj(X,Y,Wynik),
    write(Wynik).


polaczListy(List1, List2, Result):-
   append(List1, List2, Result).