Вычислить и вывести наа экран значение выражения lazarus

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

   int x, faktorial;

   faktorial = 1;

   cout << "vvedite x" << endl;

   cin >> x;

   if(x <= 0)

   {

       cout << "x dolgen bit' > 0" << endl;

       return 0;

   }

   cout << "faktorial " << x " = "; //выводим заготовку для результата, так как x будет меняться  

   do

   {

       faktorial *= x; //faktorial = faktorial * x;

   }

   //если в условие цикла подставить число, то 0 преобразуется к "ложь", а ненулевое значение к "истина"

   while(--x);//уменьшаем x на 1, затем проверяем его на 0

   cout << faktorial << endl;

   return 0;

}

Объяснение:

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.