На языке программирования turbo pascal, используя цикл с предусловием, цикл с постусловием и цикл с счетчиком, напишите программы, вычисляющую факториал числа, введённого с клавиатуры. факториал: n! =1*2*3*…*n например: 4! =1*2*3*4=24

Var
    a: array[1..100, 1..100] of integer;
    i, j, m, n, count2, countx, x: integer;

begin
    {ввод матрицы}
    n := 10;
    
    writeln('Данные матрицы:');
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            a[i, j] := random(200) - 100;
            write(a[i, j]:4, ' ')
        end;
        writeln;
    end;
    
    write('x = ');
    readln(x);
    count2 := 0;
    countX := 0;
    for i := 1 to n do
        for j := 1 to n do
        begin
            if a[i, j] = x then
                countX := countX + 1;
            if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
                count2 := count2 + 1;
        end;
    writeln('countX = ', countX);
    writeln('count2 = ', count2);
end.

Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа.
Для конвертации шестнадцатеричного числа в десятичное необходимо каждую цифру (начиная справа) шестнадцатеричного числа умножить на 16 в степени, соответствующей разряду этой цифры. Например, рассмотрим шестнадцатеричное число C92116. Начните с первой цифры справа (1) и умножьте ее на 160(первый разряд задается нулевой степенью); увеличивайте показатель степени каждый раз, когда вы переходите к следующей цифре (справа налево):116 = 1 x 160 = 1 x 1 (все цифры представлены в десятичной системе за исключением оговоренных случаев)216 = 2 x 161 = 2 x 16916 = 9 x 162 = 9 x 256C = C x 163 = C x 4096
Преобразуйте буквенные символы в десятичные цифры. Цифры имеют одинаковое значение как в десятичной, так и в шестнадцатеричной системах (например, 716 = 710). Для конвертирования буквенных символов шестнадцатеричной системы в цифры десятичной системы смотрите следующий список:A = 10B = 11C = 12D = 13E = 14F = 15

ЕА16=234
Удачи в решении))