Вот описание задания: Напишите рекурсивную функцию int mul(int a, int b), которая вычисляет произведение двух целых чисел a и b. Единственная арифметическая операция, которую вы можете использовать в этой задаче, - это сложение +.
Вот инпут и аутпут (фото):

Напишите  программу,  которая  выбирает  максимальное  и  минимальное  из  пяти  введённых  чисел.3.напишите  программу,  которая  определяет,  верно  ли,  что  введённое  число  –  трёхзначное.4.напишите  программу,  которая  вводит  номер  месяца  и  выводит  название  времени  года.оператор  выбора  использовать  не  разрешается.  при  вводе  неверного  номера  месяца  долж‐но  быть  выведено  сообщение  об  ошибке.5.решите  предыдущую    с    оператора  выбора.6.напишите  программу,  которая  вводит  с  клавиатуры  номер  месяца  и  определяет,  сколько  дней  в  этом  месяце.  при  вводе  неверного  номера  месяца  должно  быть  выведено  сообще‐ние  об  ошибке.7.напишите  программу,  которая  вводит  с  клавиатуры  номер  месяца  и  день,  и  определяет,сколько  дней  осталось  до  нового  года.  при  вводе  неверных  данных  должно  быть  выведено  сообщение  об  ошибке.8.напишите  программу,  которая  вводит  возраст  человека  (целое  число,  не  превышающее  120)и  выводит  этот  возраст  со  словом  «год»,«года»  или  «лет».  например,«21  год»,«22  года»,«25  лет».9.напишите  программу,  которая  вводит  целое  число,  не  превышающее  100,  и  выводит  его  прописью,  например,21→«двадцать  оди

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(30);
  Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
  var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
  Write('2. Мудреное среднее арифметическое ');
  if s.Count=0 then Writeln(-1) else Writeln(s.Average);
  Write('3. Наибольшая длина цепочки четных элементов ');
  var (l,l1):=(-1,0);
  foreach var t in a do
    if t.IsEven then l1+=1
    else begin
      l:=Max(l,l1);
      l1:=0
      end;
  Writeln(l);
  var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
  Writeln('Массив после удаления элемента');
  a:=a?[:k]+a?[k+1:]; a.Println;
  Write('5. Второй максимум ');
  a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.

Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133