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

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

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.