const
  n = 3;
  x: array[1 .. n] of integer = (2, 8, 6);
  y: array[1 .. n] of integer = (1, 2, 5);

var
  angle: array[1 .. n] of real;
  index: array[1 .. n] of integer;
  cx, cy: real;
  i, j, T: integer;

begin
  cX := 0; cY := 0;
  for i := 1 to n do begin
    index[i] := i;
    cX := cX + x[i]; cY := cY + y[i];
  end;
  cX := cX / n;
  cY := cY / n;

  for i := 1 to n do
    angle[i] := arctan((x[i] - cX) / y[i] - cY);

  for i := 1 to n do
    for j := n downto i + 1 do
      if angle[index[j - 1]] > angle[index[j]] then begin
        T := index[j]; index[j] := index[j - 1]; index[j - 1] := T;
      end;

  for i := 1 to n do
    writeln('#', i:2, ' X = ', x[index[i]]:4, ' Y = ', y[index[i]]:5);

end.