procedure SortThree(var x,y,z: integer);
begin
  if x > y then Swap(x, y);
  if x > z then Swap(x, z);
  if y > z then Swap(y, z);
end;

begin
  var (x,y,z) := Random3(1,10);
  Println(x,y,z);
  SortThree(x,y,z);
  Assert((x <= y) and (y <= z));
  Println(x,y,z);
end.