В массиве, заполненном произвольными целыми числами, найдите два числа, произведение...

//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.