Плз помогите срочно! Числа Фибоначи

[Elme]

program fibo;
Var
f : text;
X : Array [1..21] Of Integer;
N : Integer;
i : Integer;
A : INTEGER;
b : real;
begin
Assign(f,'FIB.txt ');
Rewrite(f);
Writeln (f,'0');
Writeln (f,'1');
Write ('PASCAL:>fibonachi');
WriteLn ('-');
Write (' (3<=N<=21): N = ');
ReadLn (N);
b:=1;
X [1] := 1;
X [2] := 1;
WriteLn ('0');
Writeln ('1');
For i := 3 To N Do
Begin
X [i] := X [i - 2] + X [i - 1];
Writeln (X [i]);
A:= X [i];
b:=b*A;
Writeln (f,X [i]);
End;
ReadLn;
Writeln (f,b);
Close(f);
End.




Уважаемые, помогите плиз написать дерево алгоритмов к этой задачке (Ну выглядит эта схема как ромбик, прямоугольник и прочие геометрические фигуры).
P.S Я блондинка!

[VadEr]

Примерно так: