Составить блок-схему и программу на Паскале T = n!

Тут два задания на С. В 3 я не понял что требуется.

#include <stdio.h>

void mission3(n1, n2) {

   int one = n1;

   int two = n2;

   // нечетные

   if (one % 2 == 1 && two % 2 == 1) {

       printf("One: %d\n", one * 2);

       printf("Two: %d\n", two * 2);

   // четные

   } else if (one % 2 == 0 && two % 2 == 0) {

       // определяем какое больше

       if (one > two) {

           printf("One: %d\n", one / 2);

       } else {

           printf("Two: %d\n", two / 2);

       }

   // разные

   } else {

       // определяем какое нечетное

       if (one % 2 == 1) {

           printf("One: %d\n", one + 1);

       } else {

           printf("Two: %d\n", two + 1);

       }

   }

}

void mission4() {

   // перебираем все двухзначные числа

   for (int i = 10; i < 99; i++) {

       int n1 = i % 10; // получаем остаток от деления

       int n2 = i / 10; // получаем целую часть

       // если к сумме цифр этого числа прибавить квадрат этой суммы, то получится это число

       if (n1 + n2 + ((n1 + n2) * (n1 + n2)) == i) {

           printf("%d\n", i);

       }

   }

}

int main()

{

   // проверка 3 задания

   mission3(3, 3);

   mission3(4, 4);

   mission3(4, 5);

   // проверка 4 задания

   mission4();

   return 0;

}

begin

 var (a, b) := (ArrRandom, ArrRandom);

 Println('Исходные массивы: '); a.Println; b.Println; Println;

 var m := a.Zip(b, (x, y)-> max(x, y)).ToArray;

 Println('Конечные массивы: ');

 a := a.Select((t, i)-> t + m[i]).ToArray; a.Println;

 b := b.Select((t, i)-> t + m[i]).ToArray; b.Println;

 Println($'{NewLine}Сред. арифм. = {a.Average}');

 Println($'Минимальный = {b.Min}{NewLine}Максимальный = {b.Max}');

end.

Пример вывода в приложении.