Đề ở trên:

uses crt;
var n,i:longint;a:array[1..100000]of qword;
begin
 clrscr;
  a[1]:=2;
  a[2]:=2;
  write('nhap n:');readln(n);
  for i:=3 to n do a[i]:=a[i-1]+a[i-2];
  write(a[n]);
 readln;
end.

Đề ở dưới:

uses crt;
var i:longint;a:array[1..100000]of qword;
begin
 clrscr;
  a[1]:=2;
  a[2]:=2;
  i:=2;
  while a[i]<10 do 
    begin
     inc(i);
     a[i]:=a[i-1]+a[i-2];
    end;
  write(i);
 readln;
end.

uses crt;
var a: array[1..1000] of integer;
i: integer;
begin
clrscr;
a[1]:=1;
a[2]:=2;
i:=2;
repeat
i:=i+1;
a[i]:=a[i-1]+a[i-2];
until a[i]>=10;
writeln ('so thang can nuoi la: ',i+1);
readln;
end.

$#Trumtinhoc$