Одно из возможных применений смешанной реальности — программы для планирования жизненного сценария. Они учитывают не только список важных событий, но и внешние обстоятельства, например, погоду. В чем исследователи видят основную проблему этих программ? A. Машина допускает слишком много ошибок;
B. Машины отберут работу у человека;
C. Человек отказывается принимать решения;
D. Человек не доверяет машине;
E. Требуется много вычислительных ресурсов.

var i,n, result:integer;//определяем переменные

begin

   result := 1;//начальное значение - 1. Иначе при умножении на 0 будет всегда 0

   readln(n);//вводим число, факториал которого надо найти

   while n > 1 do//пока н не будет меньше, выполняем тело

   begin

       result := result * n;//Вычисляем факториал по принципу: С конца к началу. умножаем 5 на 1(начальное значение result), потом 4 на значение результ) потом 3 на 20 и тп

       n := n - 1;//отнимаем от n 1 и переходим с предыдущему числу

   end;

   writeln('Факториал = ', result);

end.

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.