Viết chương trình pascal nhập vào n in ra tổng dãy fibonci

Var n,a,b,n2,t:integer;
begin
readln(n);
a:=0;
b:=0;
t:=0;
t:=t+b;
n2:=a+b;
while n2<=n do
begin
t:=t+n2;
a:=b;
b:=n2;
n2:=a+b;
end;
writeln(t);
end.

Đáp án+Giải thích các bước giải:

PROGRAM Fibonacci;
Uses CRT;
VAR
   First, Second, Temp : Longint;
   ix,n : integer;
BEGIN
   Clrscr;
   Write('Nhap n = ');
   Readln(n);
   Writeln('Day so Fibonacci:');
   First := 0;
   Second := 1;
   write(First:10);
   write(Second:10);
   for ix := 0 to n do
   begin
      Temp := FIrst + Second;
      First := Second;
      Second := Temp;
      write(Temp:10);
   end;
   Readln;
END.