program triang;
var f,g :text;
    vx, vy :array[1..1500] of real;
    oldal1,oldal2,oldal3:real;
    n,db,i,j,k :integer;

procedure beolvas;
var i:integer;
begin
  assign(f,'triang.in');reset(f);
  assign(g,'triang.out'); rewrite(g);
     read(f,n);
     for i:=1 to n do read(f,vx[i],vy[i]);
end;

BEGIN
  beolvas;
  db:=0;
  for i:=1 to n do
      for j:=1 to n do
          if j<>i then
             for k:=1 to n do
                 if (k<>i) and (k<>j) then
                    oldal1:=(vx[i]-vx[j])*(vx[i]-vx[j])+(vy[i]-vy[j])*(vy[i]-vy[j]);
                    oldal2:=(vx[i]-vx[k])*(vx[i]-vx[k])+(vy[i]-vy[k])*(vy[i]-vy[k]);
                    oldal3:=(vx[j]-vx[k])*(vx[j]-vx[k])+(vy[j]-vy[k])*(vy[j]-vy[k]);

  if (abs(oldal1-oldal2)<=0.001) and (abs(oldal1-oldal3)<=0.001) and (abs(oldal2-oldal3)<=0.001) then inc(db);


  write(g,db);
  close(f);
  close(g);
END.