На pascal abc используя программу ранжирования, найти произведение 3-х наименьших элементов массива: т= (-2,1,3,-4,2,0,1,-3,5) распечатать массив до и после ранжирования.

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
  Sort(t); t.Println;
  Println('Прозведение:',t[0]*t[1]*t[2]);
end.