Подскажите с листингом программы

Question

Подскажите с листингом программы

---

Answer 1

Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do<br> begin
 a:=a1+a2;
 a1:=a2;
 a2:=a;
 n:=n+1;
 end;
writeln('n = ',n,' an = ',a2);
end.

Результат:
n = 12 an = 144