Bài này dễ lắm đó bạn
uses crt;
var m:array[1..300]of longint;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
m[1]:=1;
m[2]:=1;
i:=2;
repeat
i:=i+1;
m[i]:=m[i-1]+m[i-2];
until i=n;
for i:=1 to n do
write(m[i]:4);
readln;
end.