Последовательность фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, найти сумму всех чисел в последовательности фибоначчи, которые не превосходят 1000

Var a,a1,a2:integer;
Begin
a1:=1;   
     while(a<1000) do begin
  a:=a1+a2;
a2:=a1;
a1:=a; 
writeln(a)   end;
End.

Получились числа:1 2 3 5 8 13 21 34 55 89 144 233 377 610 987