Cod sursa(job #232986)

Utilizator THE_GAMEAndrei Alexandru THE_GAME Data 16 decembrie 2008 17:35:45
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var a:array[1..100] of integer;
    f,g:text;
    n,m,fr,i,s:integer;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
read(f,n);
a[1]:=1;
a[2]:=2;
for i:=3 to n do begin
    a[i]:=a[i-1]+a[i-2]
end;
i:=1;
repeat
      fr:=fr+a[i];
      m:=m+1;
      i:=i+1;
until m=n;
rewrite(g);
write(g,fr);
close(f);
close(g);
end.