#include<stdio.h>
#include<math.h>
long n,i,a,b,c,d,num;
float x[1001],y[1001],m1,m2,m3,m4,p,k;

float abs(float x)
{
      if (x<0)
      return -x;
      return x;
}

float size(float x1, float y1, float x2, float y2)
{
      return sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
}

float panta(float x1, float y1, float x2, float y2)
{
      if (x1==x2) return 0;
      return (y2-y1)/(x2-x1);
}

int main()
{
    freopen ("patrate3.in","rt",stdin);
    freopen ("patrate3.out","wt",stdout);
    scanf ("%ld",&n);
    for (i=1;i<=n;i++)
    {
        scanf("%f %f",&x[i],&y[i]);
        x[i]+=0.00001, y[i]+=0.00001;
    }
    for (a=1;a<=n;a++)
        for (b=1;b<=n;b++)
        {
            p=size(x[a],y[a],x[b],y[b]);
            for (c=1;c<=n;c++)
            {
                k=size(x[b],y[b],x[c],y[c]);
                if (p==k)
                {
                    for (d=1;d<=n;d++)
                    {
                           //if (a!=b && b!=c && c!=d && a!=d && a!=c && b!=d && size(x[a],y[a],x[b],y[b])==size(x[b],y[b],x[c],y[c]) && abs(x[b]-x[d])==abs(x[a]-x[c]) && abs(y[b]-y[d])==abs(y[a]-y[c]) && size(x[b],y[b],x[d],y[d])==size(x[a],y[a],x[c],y[c]))
                           // num++;
                           if (k==size(x[c],y[c],x[d],y[d]) && size(x[c],y[c],x[d],y[d])==size(x[d],y[d],x[a],y[a]) && panta(x[a],y[a],x[b],y[b])+panta(x[b],y[b],x[c],y[c])==0)             
                                   num++;
                    }                                                                                                                                           
                }
            }
        }
    if (num%8) num+=8;
    printf("%ld\n",num/8);
    return 0;
}