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 an<=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 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

1)var
n:longint;
begin
readln(n);
if n mod 5=0 then writeln('Число N является кратным чилслу 5')else
writeln('Чило N не является кратным числу 5' );
end.
2)
var
a,b,c:longint:
begin
readln(a,b,c);
if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B ');
end.
3)
var
a:longint;
begin
write('Сколько вам лет?');
readln(a);
if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!');
end.
4)
var
a:extended;
begin
readln(a);
if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны');
end.

// здесь кусок кода, в котором считываем введённый месяц в переменную
//month
char getTime(int month)
switch (month){
case '1' : return 'winter'; break;
case '2' : return 'winter'; break;
case '12' : return 'winter'; break;
case '3' : return 'spring'; break;
case '4' : return 'spring'; break;
case '5' : return 'spring'; break;
case '6' : return 'summer'; break;
case '7' : return 'summer'; break;
case '8' : return 'summer'; break;
case '9' : return 'autumn'; break;
case '10' : return 'autumn'; break;
case '11' : return 'autumn'; break;
default : 'NO'; break;
}
printf(getTime(month));