Алгоритм-это набор инструкций.описывающий порядок действий исполнителя для достижения некоторого результата
Да, если это договор о постройке леса, например. Мне кажется так.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
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.
Робоча книга - документ у програмі Excel