begin
  var a := Seq(2,5,3,1,9,7);
  writeln(a);
  Sort(a);
  writeln(a);
  Reverse(a);
  writeln(a);
end.