Aillianna

Verified answer

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses System;
begin
    var a := ArrRandomInteger(100, -100, 100);
    Println(a);
    var max := a.Max();
    a[a.IndexMax()] := 0;
    max := max * a.Max();
    
    var min := a.Min();
    if (min < 0) then begin
        a[a.IndexMin()] := 0;
        min := min * a.Max();
    end;
    
    writeln(Math.Max(max, min));
end.