Cod sursa(job #812870)

Utilizator sab-cNibas B36 sab-c Data 14 noiembrie 2012 16:52:24
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
Raporteaza aceasta sursa 
program fibonaci;
var a:array[1..10000000] of longint;
  fi,fo:text;
  i,n:longint;
begin
assign(fi,'fib.in');reset(fi);
assign(fo,'fib.out');rewrite(fo);read(fi,n);
a[1]:=1;a[2]:=1;
for i:=3 to n do begin
a[i]:=a[i-2]+a[i-1];
 end;
write(fo,a[i] mod 666013);
close(fi);close(fo);
end.