type punct=record
     x,y:real;
     end;
var p:array[1..1500] of punct;
    f:text;ok:boolean;
    n,i,j,k,nr:integer;
    d:real;

function dist(a,b:punct):real;
var di:real;
begin
di:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
dist:=di;
end;


procedure citire;
begin
assign(f,'triang.in');reset(f);
readln(f,n);
for i:=1 to n do readln(f,p[i].x,p[i].y);
close(f);
end;

procedure nr_tri;
begin
for i:=1 to n do
    for j:=1 to n do
        for k:=1 to n do
            if(i<>j)and(j<>k)and(i<>k) then
              begin
              ok:=true;
              d:=dist(p[i],p[j]);
              if(round(d)<>round(dist(p[j],p[k])))then ok:=false;
              if ok then
                 if (round(d)<>round(dist(p[i],p[k]))) then ok:=false;
              if ok then nr:=nr+1;
              end;
end;

procedure afis;
begin
assign(f,'triang.out');rewrite(f);
writeln(f,nr div 6);
close(f);
end;

begin
citire;
nr_tri;
afis;
end.