Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй -2 а каждый следующий сумме двух предыдущих

Var i:integer; 
 a:array [1..16] of integer; 
begin
a[1]:=1;
a[2]:=2;
 for i:=3 to 16 do   
a[i]:=a[i-1]+a[i-2]; 
for i:=1 to 16 do 
write(a[i], ); 
end.