Проверить, делится ли заданное число Фибоначчи на 7 без остатка

program Fibonacci;
 
var
  Fprev, Fcurr: integer;
  i, N: integer;
begin
  N := 20;
  {1. Полноценное вычисление чисел Фибоначчи}
  Fprev := 0;
  Fcurr := 1;
  for i := 1 to N do
  begin
    Write(Fcurr mod 7);
    Fcurr := Fcurr + Fprev;
    Fprev := Fcurr - Fprev;
  end;
  writeln;
  {2. Модульное вычисление чисел Фибоначчи}
  Fprev := 0;
  Fcurr := 1;
  for i := 1 to N do
  begin
    Write(Fcurr mod 7);
    Fcurr := Fcurr + Fprev;
    Fprev := Fcurr - Fprev;
    Fcurr := Fcurr mod 7;
    Fprev := Fprev mod 7;
  end;
  writeln;
end.

program Fibonacci;
 
var
  N: integer;
  Fprev, Fcurr: integer;
  i: integer;
  Reminders: array [0..15] of integer;
begin
  Fprev := 0;
  Fcurr := 1;
  for i := 1 to 16 do
  begin
    if (Fcurr mod 7 = 0) then
      Reminders[i mod 16] := 1
    else
      Reminders[i mod 16] := 0;
    Fcurr := Fcurr + Fprev;
    Fprev := Fcurr - Fprev;
    Fcurr := Fcurr mod 7;
    Fprev := Fprev mod 7;
  end;
  while not SeekEoLn do
  begin
    Read(N);
    Write(Reminders[N mod 16]);
  end;
  {writeln;}
end.