S=[];
S(1)=1;

function s=SommeApres(n)
  S=[1];
  for i=2:n do
    if S(i-1)<i then
      S(i)=S(i-1)+i;
    else S(i)=S(i-1)-i;
    end
  end
  s=S(n)
endfunction


function d=Distance(s)
  S=[1];
  n=2;
  while S(n-1)<>s do
    if S(n-1)<n then
      S(n)=S(n-1)+n;
    else S(n)=S(n-1)-n;
    end
    n=n+1
  end
  d=n-1
endfunction

//disp(SommeApres(2008))

s=2008;
disp("Il détient exactement la somme de ")
disp(s)
disp("roubles au bout de ")
disp(Distance(s))
disp("verstes.")