Число Фибоначчи.

[doktor255]

Кажись понял. Цель задачи посчитать прямое и обратное вычисление Фибоначчи. В первом цикле складывали два предыдущих числа, во втором вычитаем разницу двух соседних чисел по индексу - 4

[Саня_]

Всё гениальное просто.
Стало скучно, решил написать...

procedure TForm1.Button1Click(Sender: TObject);
var i,count:integer; a: array [1..100] of integer;
begin
a[1]:=2; a[2]:=6;
for i:=3 to strtoint(edit1.Text) do
 begin
  a[i]:=a[i-1]+a[i-2];
  if i>4 then a[i]:=a[i]-a[i-4];
 end;
edit1.Text:=inttostr(a[strtoint(edit1.Text)]);
end;

[Silverstone]

Всем спасибо за подсказки.
Задачу объяснил так, как сам ее понял. Буду дальше ковыряться.