Код на питона и на с Разложение на чётнопростые
В этой задаче рассматриваются только чётные целые числа.

Чётное натуральное число n будем называть чётнопростым числом, если его нельзя представить в виде произведения двух чётных чисел. Например, числа 2 и 6 — чётнопростые.

Очевидно, что каждое число либо является чётнопростым, либо разлагается в произведение чётнопростых. Но такое разложение на чётнопростые не всегда единственно.

Входные данные

Дано чётное натуральное n≤109.

Выходные данные

Если число n чётнопростое, выведите слово prime. Если это число единственным образом разлагается в произведение двух и более чётнопростых, то выведите слово single, а в следующей строке выведите разложение этого числа на чётнопростые множители. Если число допускает несколько различных разложений на чётнопростые, то выведите слово many, а в следующих двух строках выведите два каких-нибудь различных разложения числа на чётнопростые множители.

Примеры
Ввод 1
6
Вывод
prime
Ввод 2
4
Вывод
single
2 2

очень на вас надеюсь

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

begin
  // В целях упрощения логики программы варианты
  // выбора кнопок 0 и * вместе не рассматриваются
  //
  Writeln('Опускайте монеты достоинством 1,2,5 руб.');
  Writeln('Кнопка "0" завершение приема, кнопка "*" - возврат монет');
  var s:=ReadlnString;
  var p:=Pos('*',s);
  if p>0 then begin
    var sr:=s[:p].ToIntegers;
    if sr.Sum>0 then Writeln('Возврат монет: ',s[:p])
    else Writeln('Нечего возвращать!')
    end
  else begin
    p:=Pos('0',s);
    if p>0 then begin
      s:=s[:p];
      var a:=s.ToIntegers;
      if a.Length>0 then begin
        var acc:=a.Where(t->t in [1,2,5]);
        var rej:=a.Where(t->not(t in [1,2,5]));
        if rej.Count>0 then Writeln('Не приняты: ',rej);
        var sum:=acc.Sum;
        if sum mod 5<>0 then begin
          Writeln('Введена неверная сумма');
          Write('Принятые монеты возвращены: ');
          acc.OrderBy(t->t).Println
          end
        else
          if sum>0 then
            Writeln('Получите билеты в количестве ',sum div 5,' шт.')
        end
      else
        Writeln('Вы не опустили ни одной монеты')
      end
    else
      Writeln('Вы не выбрали кнопку "0" или "*"')
  end
end.

Примеры
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Получите билеты в количестве 4 шт.

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 *
Возврат монет: 3 6 3 1 3 5 2 5 2 4 2 3 6 2 1

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Введена неверная сумма
Принятые монеты возвращены: 1 1 2 2 2 5

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 7 3 4 3 8 6 0
Не приняты: [3,6,3,7,3,4,3,8,6]

Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
0
Вы не опустили ни одной монеты

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.