Pascal:
Числа Фибоначчи определяются по следующему закону: a1 = 1, a2 = 1, an+1 = an+an-1. Определить член Фибоначчи, который больше заданного числа Х.

Var a1,a2,an,x:integer;
begin
write(x = );
readln(x);
a1:=1; a2:=1; an:=1;
while anlt;=x do
 begin
 an:=a1+a2;
 a1:=a2;
 a2:=an;
 end;
writeln(an = ,an);
end.

Пример:
x = 25
an = 34

Function Fib(n:integer):integer;
begin
  if nlt;3 then Fib:=1
  else Fib:=Fib(n-1)+Fib(n-2)
end;

var
  i,f,x:integer;
begin
  Write(X=); Read(x);
  i:=1;
  repeat
    f:=Fib(i); Inc(i)
  until fgt;x;
  Writeln(Число Фибоначчи, большее введенного: ,f)
end.

Пример
X=27
Число Фибоначчи, большее введенного: 34