Ảnh của bài viết dưới đây nhé,mình bổ sung.
Program Hotboy;
Uses crt;
Var n,F,F1,F2 : longint;
Begin
Write('nhap tu ban phim so n');
Readlb(n);
F1:=1; F2:=1;
Writeln(F1,';',F2);
Repeat
F:=F1+ F2;
If F
F2:=F1; F1:=F;
Until F>n ;
Readln
End.
166 Điểm
120 Điểm
64 Điểm