Cod sursa(job #561375)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 19 martie 2011 23:43:18
Problema Al k-lea termen Fibonacci Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var     a,b,c,n,k:longint;
        f1,f2:text;
begin
  assign(f1,'kfib.in');
  assign(f2,'kfib.out');
  reset(f1);
  rewrite(f2);
  read(f1,n);
  a:=1;
  b:=1;
  c:=2;
  k:=1;
  while k<n do
    begin
      c:=(a+b) mod 666013;
      a:=b;
      b:=c;
      inc(k);
    end;
  write(f2,a);
  close(f2);
end.