Просмотрите данные программы, сформулируйте задачи, которые они реализуют. program z4; var a, k, s:longint; begin writeln('Введите число'); readln(a); s:=a; while s>9 do begin k:=s; s:=0; repeat s:=s+k mod 10; k:=k div 10; until k=0 end; Writeln('Цифровой корень числа', a, '=', s); end.

Python 3.7.2

some_list = [int(input()) for i in range(int(input('list range: ')))]

EvenSumm = 0 #Сумма чётных

#Ищем сумму чётных

EvenSumm = sum(list(filter(lambda x: x % 2 == 0, some_list)))

#Среднее арифметическое закачивающихся на 5

endswithfive = list(filter(lambda x: x % 10 == 5, some_list))

endswithfive_average = sum(endswithfive) / len(endswithfive)

#Поиск чего то, равного х  

something_equal_x = some_list[some_list.index(int(input('x = ')))]

#Маскимум и его индекс

max_ind = some_list.index(max(some_list))

max_and_his_index = (max(some_list), max_ind)

print(f'''

Answers:

a) Even Summ: {EvenSumm}

b) Average of nums, ends with '5': {endswithfive_average}

c) something, equal x: {something_equal_x}, placed under index: {some_list.index(something_equal_x)}

d) maximum and his index: {max_and_his_index}

   ''')

P.S - Скопированый код может не работать. Это нормально, сайт портит отступы. Код протестирован, работает. Приложен скриншот программы и вывода для придуманных на ходу входных данных