Числа Фибоначчи Опции

[123]

Помогите вывести на печать все числа, меньшие 100, не являющиеся числами Фибоначчи.

[BlackShadow]

n1:=1;
n2:=1;
n3:=2;
While n3 < 100 Do
Begin
 WriteLn(n3);
 n1:=n2;
 n2:=n3;
 n3:=n1+n2
End;

И всего-то...