Як іще називають іб розв’язування задачі в межах побудованої моделі

Тебя интересует левое верхнее число из матрицы , что, кстати, является 12 числом фибоначчи

#include <iostream>
// матрица 2 на 2// a  b// c  dtemplate< typename T = int >class matrix2{public:    T a, b, c, d;
    matrix2() : a(0), b(0), c(0), d(0)    {}    matrix2(T a, T b, T c, T d) : a(a), b(b), c(c), d(d)    {}
    matrix2 & operator *= (matrix2 & other)    {        T ta, tb, tc, td;        ta = a * other.a + b * other.c;        tb = a * other.b + b * other.d;        tc = a * other.c + c * other.d;        td = b * other.c + d * other.d;        a = ta, b = tb, c = tc, d = td;    }
    matrix2 operator * (matrix2 & other)    {        T ta, tb, tc, td;        ta = a * other.a + b * other.c;        tb = a * other.b + b * other.d;        tc = a * other.c + c * other.d;        td = b * other.c + d * other.d;        return matrix2(ta, tb, tc, td);    }
    matrix2 pow(int power)    {        matrix2 result(1, 0, 0, 1);        matrix2 cur = *this;        while (power)        {            if (power & 1)            {                power ^= 1;                result *= cur;            }            else            {                power >>= 1;                cur *= cur;            }        }        return result;    }
    void operator = (matrix2 other)    {        a = other.a;        b = other.b;        c = other.c;        d = other.d;    }
    friend std::ostream & operator << (std::ostream & ostr, matrix2 ma)    {        ostr << std::endl;        ostr << ma.a << "  " << ma.b << std::endl;        ostr << ma.c << "  " << ma.d << std::endl;        return ostr;    }
};
int main(void){    matrix2< int > m1(1, 1, 1, 0), tmp;
    const int N = 12;
    std::cout << m1.pow(N).a;
    return 0;}

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..20] of real; // Массива чисел

  S:real; // Сумма чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  S:=0;

  for i:=1 to n do

     if(a[i]<5) then

        S:=S+a[i];    

  readln;

  writeln('S= ',S);

End.