Решение задачи While 25

#include <stdio.h>
int main(void)
{
   int n;
   printf("N:");
   scanf("%i",&n);
   int f1=1,f2=1,f=0;
 
   while (f<n){
       f=f2+f1;
       f2=f1;
       f1=f;
   }
   printf("%s\n",f==n?"True":"False");
   return 0;
}

import random

N = random.randrange(1,100000)
#N = 4181
print("N = ",N)
F1 = F2 = 1
print(F1,end="; ")
print(F2,end="; ")

while F2 <= N:
    F1, F2 = F2, F1+F2
    print(F2,end="; ")
print()
print(F2)
									

program While25;
var
  N,F,F1,F2 :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  F1:=1;
  F2:=1;
  F:=0;
  while F < N+1 do
   begin
    F:=F2+F1;
    F2:=F1;
    F1:=F;
   end;
  Writeln(F);
end.