с программированием (Паскаль) 1) написать функцию, считающую n-ый элемент последовательности Фиббоначчи. первые два элемента последовательности равны 1, а каждый последующий сумме 2х предыдущих
​

var

  x, y, i, n: integer;

begin

 Write('Введите n = '); ReadLn(n);

 x := 1;

 y := 1;

 for i := 2 to n - 1 do

 begin

    y := x + y;

    x := y - x;

 end;

 WriteLn(n,'-ый элемент последовательности Фиббоначчи равен ', y);

end.

Объяснение: