Паскаль - вывод чисел Фибоначчи

Числа Фибоначчи - последовательность

0, 1, 1, 2, 3 ,5 ,8, 13, 21, 34, 55, 89,144,233, 377, 610, 987, 1597, 2584, 4181,..

в которой каждое последующее число равно сумме двух предыдущих чисел. Названы так в честь средневекового математика Леонардо Пизанского (известного как Фибоначчи). Иногда число 0 не рассматривается как член последовательности. Последовательность чисел Фибоначчи можно задать выражением:

F₀=0, F₁=1, F_n=F_n-1+F_n-2, n≥2, n∈Z.

Программа для вывода первых 20 чисел Фибоначчи написанная на Паскале:

Program fibonacthi;
Uses Crt;
const n= 20;
Var mas: array [0..n] of integer;
     i: integer;
Begin
     mas[0]:=0;
     mas[1]:=1;
     writeln ('1');
     For i:= 2 to n do 
     Begin
     mas[i]:=mas[i-1]+ mas[i-2];
     Writeln (mas[i]);
     end;
Readln;  
End.

 Количество выводимых чисел меняется значение постоянной n.