program mnogoketnuk3;
{$APPTYPE CONSOLE}
var x,y:array[1..100] of real;
r,v:array[1..100] of integer;
xmin:real;
start,finish,lich,n,i,j,k:integer;
f:text;
begin
{Задання координат вершин многокутника}
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do
readln(f,x[i],y[i]);
close(f);
{Пошук крайньої лівої точки}
xmin:=x[1];
for i:=2 to n do
if x[i]<xmin then begin xmin:=x[i]; start:=i;end;
v[start]:=1;
r[1]:=start;
k:=1;
{Пошук наступної точки}
for i:=1 to n do
if v[i]=0 then begin k:=k+1;finish:=i;
v[finish]:=k;
r[k]:=finish;
lich:=0;
for j:=1 to n do
if (v[j]=0)and
((x[finish]-x[start])*(y[j]-y[finish])-(x[j]-x[finish])*(y[finish]-y[start])>0) then
lich:=lich+1;
if (lich>0)and(lich<>n-k) then begin v[finish]:=0;k:=k-1;end;
end;


{Виведення результату}
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
writeln(f,x[r[i]]:2:2,' ',y[r[i]]:2:2);

close(f);
end.