function poutnik(N,A)
%N=pocet dnu
%A=pocet kilometru
%Blouznivý poutník ušel první den A kilometrù.
%Další dny ušel vždy polovinu trasy pøedchozího
%dne a ještì k tomu opaèným smìrem.
%Funkce z poètu dnù N a vzdálenosti A urèí
%délku pochodu d, vzdálenost v mezi zaèátkem a cílem pochodu
%a úèinnost u poutníka v procentech.

pocetkilometru=A;
delkapochodu=0;
vzdalenost=0;
smer=1;
ucinnost=0;


for den=1:N
%    den
    vzdalenost=vzdalenost+(pocetkilometru*smer);
    delkapochodu=delkapochodu+pocetkilometru;
    pocetkilometru=pocetkilometru/2;
    smer=smer*(-1);
end

delkapochodu
vzdalenost
ucinnost= 100 * vzdalenost / delkapochodu

end