Принадлежность числа последовательности

function fun(i:integer):integer;
begin
  if i=1 then Result:=3 else
    if i=2 then Result:=8 else
      if i=3 then Result:=18 else
        Result:=3*fun(i-1)-2*fun(i-2);
end;
begin
  var n:=ReadlnInteger; var i:=0; var b:=false;
  repeat
    i+=1; var f:=fun(i);
    if n=f then begin
      b:=true; writeln('Является');
    end else
      if f>n then begin
        b:=true; writeln('Не является');
      end;
  until b;
end.

var
  n:biginteger;
begin
  n:=BigInteger.Parse(ReadlnString('n='));
  if ((n mod 10=8) and (n div 10 mod 4=3) and ((n div 10+1).IsPowerOfTwo)) or 
  ((n=3) or (n=8) or (n=18)) then writeln('Yes') else writeln('No')
end.

begin
  var x := BigInteger.Parse(ReadlnString('Число:'));
  writeln(SeqWhile(BigInteger(3), BigInteger(8), (a, b) -> 3*b - 2*a, v -> v <= x).Println(',').Last = x);
end.