Проверка входит ли заданное число в числовую последовательность Фибоначчи — Pascal(Паскаль)

Program PascalGuru;

var
  n: integer;

  { ----------------------- }
function IsFib(n: longint): boolean;
var
  i, i1, i2: longint;
begin
  if n = 1 then
    IsFib := true
  else
  begin
    i1 := 1;
    i2 := 1;
    repeat
      i := i1 + i2;
      if i = n then
        IsFib := true
      else
      begin
        i1 := i2;
        i2 := i;
      end;
    until i >= n;
    if i > n then
      IsFib := false;
  end;
end;
{ ------------------- }

begin
  readln(n);

  if IsFib(n) then
    writeln('Yes')
  else
    writeln('No');

end.