Nhập vào một số N. Xuất ra tất cả các số fibonanci trong khoảng N.

VD: N = 5 -> 1 1 2 3 5 Program Bai9; uses crt; var a,b,c,d,i,n:integer; begin clrscr; write('Nhap vao n = ');readln(n); a:=1; b:=1; c:=a+b; write(n,' so Fibonaci dau tien la: '); write(1:4,1:4); for i:=3 to n do begin write(c:4); a:=b; b:=c; c:=a+b; end; writeln; writeln('Da xu ly xong'); readln; end. writeln('da xu ly xong'); readln; end.