program fibonacci; var i,n:integer; f:array[1..100] of integer; // Sirul lui Fibonacci: 1 1 2 3 5 8 13 21 ..... // Suma oricaror 2 termeni consecutivi da urmatorul begin writeln('Dati un numar de 2 cifre'); readln(n); // Sa aflam primii n termeni din sir f[1]:=1; writeln(f[1]); f[2]:=1; writeln(f[2]); for i:=3 to n do begin f[i]:=f[i-1]+f[i-2]; writeln(f[i]); end; end.