Cod sursa(job #156133)

Utilizator SILVER_BOY22Dalalau Alexandru SILVER_BOY22 Data 12 martie 2008 13:04:10
Problema Nunta Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g:text;
    n:longint;
function f1(nr:longint):longint;
begin
     if nr<3 then f1:=nr
        else f1:=f1(nr-1)+f1(nr-2);
end;
begin
     assign(f,'nunta.in');
     assign(g,'nunta.out');
     reset(f);
     rewrite(g);
     read(f,n);
     write(g,f1(n));
     close(f);
     close(g);
end.