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

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

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

[Client]

writeln(fib)

А это у меня тока не скомпилилось?? Похоже что автору надо еще все промежуточные значения вывести.
В основной программе s:=fib(n); сработает, а в самой функции как переменной присвоить значение функции??

Сообщение отредактировано: Client - 22.01.2008 10:05