Program ........... ;
Uses crt;
Var
N,i : word;
F, F1, F2 : word;
Begin
Clrscr;
Repeat
Writeln('Tim so hang thu N cua day Fibonaxi, Nĩ='));
Readln(N);
If N<=2 then writeln(’Moi nhap lai !');
Until N>2 F1:= 1 F2:= 2 for i:= 3 to N do
Begin
F := F1 + F2;
Fl := F2;
F2 := F;
End;
Writeln('So fibonaxi thu', N: 5, ' la ’, F: 10);
Readln;
End.