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

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

Не знаешь как алгоритм работает или как он в паскале описывается?
Суть:сумма двух чисел даёт третье.
Я бы это сделал, используя массив, с заполнеными первыми двумя элементами, а циклом уже считать начиная с третьего. третий будет суммой первого и второго, четвёртый суммой второго и третьего(mas[i]:=mas[i-1]+mas[i-2])

массивы ище в школе непроходили нильзя мне писать массивы