Очень нужна помощь. Программа в Pascal Недавно Петя научился считать. Он тут же заметил, что число 2 обладает замечательным свойством - 2 + 2 = 2 × 2. Его старший брат Ваня тут же объяснил ему, что дело не в двойке. "Дело в том, что последовательность 2, 2 - волшебная," - сказал Пете Ваня. - "Волшебная последовательность - это такая последовательность натуральных чисел, что сумма ее членов равна их произведению. Например последовательность 1, 2, 3 - тоже волшебная." Петя тут же сложил 1, 2 и 3, потом перемножил их и обрадовался. Теперь Петя хочет найти более длинные волшебные последовательности. Помогите ему!

Нет решений не знаю короче вот код для 5 чисел(для 4 чисел я уже проверил)
           program gt;
var a,b,c,d,e:integer;
begin
for a:=1 to 50 do
for b:=a+1 to 50 do
for c:=b+1 to 50 do
for d:=c+1 to 50 do
for e:=d+1 to 50 do
if(a+b+c+d+e=a*b*c*d*e)then writeln(a, ,b, ,c, ,d, ,e);
end.
Если числа могут повторятся то ответов много Пример:5 2 1 1 1