цифры фибоначо, памогите навичку в решении с функцией Опции

[maksimla]

надо чтобы упорядочит цифры чтобы шли так
1
1
2
3
5
8
13
и так далие эти цифры две плюсуются 1+1=2 патом 1+2=3, 2+3=5.........
function fib (n: integer): integer;
begin
if (n = 1) or (n = 2) then fib := 1
else fib := fib(n-2)+fib(n-1)
end;

что надо даписать чтоби так и было
а на экране вывести
*
*
**
***
*****
********
*************
только пожалста падскажите а не ришите

[maksimla]

зделал я кажется правелна
program fibonacio;
var a,i,r:integer;
function fib (n:integer):integer;
begin
if (n=1) or (n=2)
then fib:=1
else fib:=fib(n-2)+fib(n-1);
end;
begin
write('n=');
readln(a);
for i:=1 to a do
begin
writeln;
for r:= 1 to fib(i) do
write('*');
end;
readln;
end.