{ Bài 5: Viết chương trình tìm và hiện ra màn hình n số đầu tiên trong dãy Fabonasi (n nhập từ bàn phím).
Dãy Fabonasi:
F1=F2=1;
Fn=F(n-1)+F(n-2)
}
program CT;
uses crt;
var n,u1,u2,u3,i:integer;
begin
clrscr;
write('nhap so n: ');readln(n);
u1:=1;u2:=1;
write(u1,' ',u2,' ');
i:=2;
repeat
u3:=u1 + u2;
write(u3,' ');
u1:=u2;
u2:=u3;
i:=i+1;
until i = n;
readln;
end.