Массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат

Const n = 10; var   a : array [1..n] of integer;   i, j, k, kol, p : integer; begin   randomize;   for i: = 1 to n do       a[i]: = random(100);         for i: = 1 to n-1 do       for j: = 1 to n-i do           if a[j] > a[j+1] then           begin               k: = a[j];               a[j]: = a[j+1];               a[j+1]: = k;           end;     kol: = 0; p: = 1;   for i: = 1 to n do       if (a[i] > 20) and (a[i] < 50) then       begin           inc(kol);           p: = p * a[i];       end;         writeln(kol,'    ',p); end.

Вот полная трассировка вызовов при вычислении f(6): вызов f(6) вызов f(5) вызов f(4) вызов f(3) вызов f(2) выход из f со значением 2 вызов g(1) выход из g со значением 2 выход из f со значением 4 вызов g(2) выход из g со значением 3 выход из f со значением 7 вызов g(3) вызов g(2) выход из g со значением 3 вызов f(1) выход из f со значением 1 выход из g со значением 4 выход из f со значением 11 вызов g(4) вызов g(3) вызов g(2) выход из g со значением 3 вызов f(1) выход из f со значением 1 выход из g со значением 4 вызов f(2) выход из f со значением 2 выход из g со значением 6 выход из f со значением 17 17 - это ответ.

Однажды нам предложили сделать робота. вместе с моей подругой мы взялись за это дело - накопали в интернете кучу информации, поискали в журналах и к концу недели всё было готово. осталось самое важное -  как этим устройством? а вдруг, он не поймет мы долго пытались разобраться в этом, но было уже около 4-х часов ночи и мы легли спать. утро. 6.00. будильник. робота нет. мы обыскали всю квартиру, даже в ванную заглянули - нет. потом оказалось, что мы случайно нажали кнопку запуска и еще какую-то, из-за чего робот включился и уполз под шкаф.