Đây là dãy số Fibonacci, trong pascal nó công thức:

Cho ban đầu

F1=1;  F2=1;

Begin

       write(f1,' ');

       Fn:=F1+F2;

       F1:=F2;

       F2:=Fn;

end;

Chương trình:

program fobo;

uses crt;

var n,f1,f2,fn:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       f1:=1;  f2:=1;  

       while f2<=n do

              begin

                     write(f1,' ');

                     Fn:=F1+F2;

                     F1:=F2;

                     F2:=Fn;

              end;

       write(f1);

       readln;

end.

var fi: array[1..100] of longword;

       i, n: byte;

Begin

     fi[1]:=1; f[2]:=1;

     Write('n = '); readln(n);

     If n<3 then write(fi[1], ', ', fi[2])

     Else for i:=3 to n do

          Begin

              fi[i]:=fi[i-1] + fi[i-2];

              write(fi[i], ', ');

          End;

      Readln

End.