===== PascalABC.NET =====
begin
// 1
var a := Arr(-7, 3, 8, 6, 4, 12, 16, -2, 5, 6);
a.Sort;
a.Println;
// 2
var b := Arr('Ф', 'М', 'К', 'Л', 'Ф', 'Ж', 'Р', 'Ц', 'У', 'Х');
b := b.OrderDescending.ToArray;
b.Println(' ')
end.
===== PascalABC.NET =====
begin
// 1
var a := Arr(-7, 3, 8, 6, 4, 12, 16, -2, 5, 6);
a.Sort;
a.Println;
// 2
var b := Arr('Ф', 'М', 'К', 'Л', 'Ф', 'Ж', 'Р', 'Ц', 'У', 'Х');
b := b.OrderDescending.ToArray;
b.Println(' ')
end.