там фотка я не могу понять

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,6); a.Println;
  var s:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]);
  s.Println;
  var max:=s.MaxBy(t->t[1]);
  Writeln('Наиболее частое значение: ',max[0])
end.

Пример
n= 50
1 2 5 5 4 2 5 3 5 3 5 5 5 4 2 4 3 3 3 3 6 6 5 4 2 5 5 5 4 5 3 1 5 1 1 3 6 2 6 6 5 2 6 5 2 5 5 5 6 5
(1,4) (2,7) (3,8) (4,5) (5,19) (6,7)
Наиболее частое значение: 5

list_number = []    # Создали список, сюда заносим числа.

number = int(input())   # Вводим число

while number != 0:    # Проверяем на равенство число нулю

   list_number.append(number)    # Добавляем число в список

   number = int(input())   # Вводим след.число

if list_number: # Если список не пуст

   # Фильтруем список(возвращаем список только с четными числами) и выбираем максимальное

   result_number = max(list(filter(lambda x: x % 2 == 0, list_number)))    

   print("Result: {0}".format(result_number))  # Выводим результат

Объяснение: