Cod sursa(job #156147)

Utilizator SILVER_BOY22Dalalau Alexandru SILVER_BOY22 Data 12 martie 2008 13:08:19
Problema Nunta Scor 70
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,i:longint;
    a:array[1..1000]of int64;
begin
     assign(f,'nunta.in');
     assign(g,'nunta.out');
     reset(f);
     rewrite(g);
     read(f,n);
     a[1]:=1;
     a[2]:=2;
     for i:=3 to n do
         a[i]:=a[i-1]+a[i-2];
     write(g,a[n]);
     close(f);
     close(g);
end.