Viết chương trình nhập từ bàn phím một số n. Xuất dãy số Fibonacci trong khoảng n.

Biết dãy số Fibo được xác dịnh như sau : U0 = U1 = 1 Un+2 = Un+1 + Un (n > 0) Ví dụ: n = 8 -> 1 1 2 3 5 8 13 21. Program Day_Fibo; uses crt; var i,n,f1,f2,f3:longint; procedure fibo(k:longint); begin f1:=1; f2:=1; for i:=1 to k do begin f3:=f1+f2; write(f1:3,' '); f1:=f2; f2:=f3; end; end; begin clrscr; write('Nhap n: ');readln(n); fibo(n); readln; end.