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

извеняюсь не знал

var a1,a2,an,x:integer;beginwrite('x = ');readln(x);a1:=1; a2:=1; an:=1;while an<=x do begin an:=a1+a2; a1:=a2; a2:=an; end;writeln('an = ',an);end.Пример:x = 25an = 34

function Fib(n:integer):integer;begin  if n<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 f>x;  Writeln('Число Фибоначчи, большее введенного: ',f)end.ПримерX=27Число Фибоначчи, большее введенного: 34