Cod sursa(job #385084)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 22 ianuarie 2010 08:00:22
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
program kfib;
var  f,g:text;k,a,b,c,q:longint;
begin
  assign(f,'kfib.in');reset(f);
  assign(g,'kfib.out');rewrite(g);
   readln(f,k);
   a:=0;b:=1;c:=1;q:=0;
      while q<k do begin
      a:=b;b:=c;c:=a+b;q:=q+1;
       end;
       write(g,a mod 666013);
       close(f);close(g);
        end.