• Source
    1. program fibonacci;
    2. var i,n:integer;
    3. f:array[1..100] of integer;
    4. // Sirul lui Fibonacci: 1 1 2 3 5 8 13 21 .....
    5. // Suma oricaror 2 termeni consecutivi da urmatorul
    6.  
    7. begin
    8. writeln('Dati un numar de 2 cifre');
    9. readln(n);
    10. // Sa aflam primii n termeni din sir
    11. f[1]:=1; writeln(f[1]);
    12. f[2]:=1; writeln(f[2]);
    13.  
    14. for i:=3 to n do
    15. begin
    16. f[i]:=f[i-1]+f[i-2];
    17. writeln(f[i]);
    18. end;
    19. end.