Задача А. Ключ Петя - начинающий компьютерный взломщик. После перехвата очередного сигнала между своими соседями, ему удалось извлечь из него два числа N и P. Петя долго не мог понять смысл этих чисел, однако, в разговоре соседей на лестничной площадке он нечаянно услышал алгоритм получения ключа, которого достаточно для полной расшифровки сигнала. Из всех наборов натуральных чисел рассматриваются те, которые состоят из N элементов, а их производение равно P. Ключ равен наибольшей из возможных сумм элементов такого набора.
Например, существует два набора из трех натуральных чисел, произведение которых равно четырём :1, 2,2, и 1,1,4. Сумма элементов первого набора равна пяти, второго - шести, следовательно, ключ равен шести Пете найти ключ для расшифровки начала
Входной файл input.txt содержит два целых числа N и P
В выходной файл output.txt выведите одно целое число — искомый ключ
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('k=',
ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.
Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.