program FIBONACI;

uses crt;

var  n,i,f1,f2:integer;

begin

      clrscr;

   write('nhap so n');readln(n);

f1:=1;

f2:=1;

       for i:=1 to n do

           begin

                 write(f1,'');

                             f2:=f2+f1;

                              f1:=f2-f1;

      end;

           writeln;

          readln

end.

           nhớ cho mình 1 tim 1 vote

Mình làm bằng đệ quy nhé.

Ta có: $F(n)=\begin{cases}1\Leftrightarrow n=1\\
1\Leftrightarrow n=2\\
F(n-1)+F(n-2)\Leftrightarrow n>2\end{cases}$

Chương trình:

uses crt;
var n:longint;
function f(n:longint):longint;
begin
   if n<=2 then f:=1
   else f:=f(n-1)+f(n-2);
end;
begin
clrscr;
   readln(n);
   writeln(f(n));
readln
end.