Решите, пожалуйста! Дана последовательность целых чисел, не превосходящих по модулю 10000. Ноль – признак конца. Вывести минимальное произведение двух элементов этой последовательности. — Правильный ответ на вопрос найдете ниже

Ответ: Автоприем роботом «Знания» решения, как верного. Робот режет все комментарии для архивации.

Ответ: ясно

Ответ: а мои не удалены

Ответ: А может, кто-то из модераторов углядел что-то лишнее.

Ответ: хм

Ответ: PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadSeqIntegerWhile(t->t<>0).OrderBy(t->t).ToArray;  var k:=a.Length-1;  var p:=a[0]*a[k];  if p<0 then Writeln(p)  else    if a[0]<0 then Writeln(a[k-1]*a[k])    else Writeln(a[0]*a[1])end.