My program:

Program t1173;{$N+}

Const Eps=1E-20;

Var Snail      :array[0..1000]of record X,Y,W :extended; ID :longint;
Use:boolean end;
    PredW,MinW :extended;
    i,N,CurI,j :longint;

Function GetW(CurX,CurY:extended):extended;
Var CurW,tgW,absW      :extended;
 begin
  if Abs(CurX)<Eps then begin
   if CurY>0 then CurW:=90;
   if CurY<=0 then CurW:=270;
  end else
  if Abs(CurY)<Eps then begin
   if CurX>0 then CurW:=0;
   if CurX<=0 then CurW:=180;
  end else begin
   tgW:=abs(CurY/CurX);
   absW:=ArcTan(tgW)*360/(2*Pi);
   if (CurX>0)and(CurY>0) then CurW:=absW else
   if (CurX>0)and(CurY<0) then CurW:=360-absW else
   if (CurX<0)and(CurY>0) then CurW:=180-absW else
   if (CurX<0)and(CurY<0) then CurW:=180+absW;
  end;
  GetW:=CurW;
 end;

begin
Snail[0].ID:=0;
Read(Snail[0].X,Snail[0].Y);
Read(N);
for i:=1 to N do Read(Snail[i].X,Snail[i].Y,Snail[i].ID);
for i:=1 to N do Snail[i].W:=GetW(Snail[i].X-Snail[0].X,Snail[i].Y-
Snail[0].Y);
for i:=1 to N do Snail[i].Use:=false;
PredW:=361;
Writeln(0);
for j:=1 to N do begin
 MinW:=-1;
 CurI:=0;
 for i:=1 to N do
  if not(Snail[i].Use) then
   if (Snail[i].W>MinW)and(PredW>Snail[i].W) then begin
    MinW:=Snail[i].W;
    CurI:=i;
   end;
 PredW:=MinW;
 Snail[CurI].Use:=true;
 Writeln(Snail[CurI].ID);
end;
Writeln(0);
end.