Написать код на pythone с функции filter и объекта stdin. с функции filter и объекта stdin нужно проанализировать поток «маленьких данных», полученных от низкозагруженного сервера сбора статистики. вы должны получить минимальную моду (наиболее часто встречающееся значение) чисел, кратных заданному, для каждой выборки крайне важных данных. если моду найти невозможно, считайте её равной -1. формат ввода в первой строке записано одно натуральное число x. во всех последующих строках записано некоторое количество натуральных чисел, разделённых пробелами. формат вывода для каждой строки требуется вычислить минимальную моду чисел, кратных x. пример 1: ввод: 2 1 2 2 3 3 3 4 4 4 4 вывод: 4 пример 2: ввод: 3 3 6 9 6 3 1 1 1 вывод: 3 -1

function ReadInteger(prompt: string): integer;
        Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры

function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями

function Println(delim: string := ' '): sequence of T;
      Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.

procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется

Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.