begin
  var arr := ArrRandom(ReadLnInteger('Кол-во элементов:'), ReadLnInteger('Левая граница диапазона:'), ReadLnInteger('Правая граница диапазона:'));
  Write('Исходный массив: ');arr.Println(#32);
  WriteLnFormat('Мин={0}, Макс={1}, Сумма мин и макс={2}', arr.Min, arr.Max, arr.Min + arr.Max);
end.