al bakalım bir tane daha yazdım. . .
fiboneccii . . .

uses crt;
var a,b,c,i,t:integer;
begin
clrscr;
write('terim sayisini giriniz:');readln(t);
a:=3;
b:=(a*3)+1;
c:=b-1;
i:=1;
write(a,' ',b,' ',c);
repeat
c:=(c*3)+1;
write(' ',c);
c:=c-1;
write(' ',c);
i:=i+1;
until i<t;
readln;
end.

:P