Решите, пожалуйста! Дана последовательность целых чисел, не превосходящих по модулю 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.