2. Составить программу тремя Среди чисел 1, 4, 9, 16, 25, … найти первое число, большее n (n – вводится с клавиатуры).

quantity = 0

n = int(input())

array = []

counter = 0

while counter != n:

 number = int(input())

 array.append(number)

 counter += 1

for i in range(len(array)):

   for j in range(i + 1, len(array)):

     if ((array[i] * array[j]) % 6 == 0):

       quantity += 1

print(quantity)

Объяснение:

quantity = 0  // Переменная, хранящая количество чисел, равна 0

n = int(input())  // Ввод с клавиатуры количества чисел

array = []  // Создание списка

counter = 0  // Переменная счетчик = 0

while counter != n:  // Пока переменная счетчик ≠ значению переменной n

 number = int(input())  // Ввод числа с клавиатуры

 array.append(number)  // Добавление этого числа в список

 counter += 1  // Переменная счетчик + 1

for i in range(len(array)):  // От 0-го индекса до размера списка

   for j in range(i + 1, len(array)):  // От i + 1 индекса до размера списка (берется значение после индекса i, чтобы сократить время)

     if ((array[i] * array[j]) % 6 == 0):  // Если индекс i списка * индекс j списка делится на 6 без остатка

       quantity += 1  // Количество + 1

print(quantity) // Вывод значения переменной quantity

Var
  x,y:integer;
  vcp,dx,dy:real;
begin
  Write('Возраст Тани='); Read(x);
  Write('Возраст Мити='); Read(y);
  vcp:=(x+y)/2;
  dx:=x-vcp; dy:=y-vcp;
  Writeln('Средний возраст равен ',vcp);
  if dx>0 then begin
    Writeln('Таня старше среднего возраста на ',dx,' лет,');
    Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
  end
  else
    if dx=0 then Writeln('Таня и Митя ровесники')
    else begin
      Writeln('Таня младше среднего возраста на ',-dx,' лет,');
      Writeln('а Митя старше среднего возраста на ',dy,' лет.')
    end
end.

Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.