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

[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;

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

[volvo]

Похоже что автору надо еще все промежуточные значения вывести.

То, что нужно автору, он написал в первом посте. Для этого достаточно сделать один-единственный цикл и в нем печатать возвращаемые функцией fib значения. А придумывать за автора - это не на форум программистов, а на форум телепатов.