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

Это называется числа Фибоначчи.

var i:integer;   a:array [1..16] of integer; begina[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.