bomb

type point=record
    x,y:longint;
    end;

var a:array[0..5000] of point;
    f:array[0..5000] of longint;
    i,j,ans,sum,pred,n,xx,yy,g,k,aa,bb:longint;

function max(x,y:longint):longint;
begin
    if x>y then exit(x) else exit(y);
end;

procedure sort(l,r: longint);
      var
         i,j,x: longint;y:point;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2].x;
         repeat
           while a[i].x<x do
            inc(i);
           while x<a[j].x do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

procedure sort1(l,r: longint);
      var
         i,j,x: longint;y:point;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2].y;
         repeat
           while a[i].y<x do
            inc(i);
           while x<a[j].y do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort1(l,j);
         if i<r then
           sort1(i,r);
      end;

begin
    assign(input,‘bomb.in‘);
    assign(output,‘bomb.out‘);
    reset(input);
    rewrite(output);
    readln(n);
    if n<=2 then
        begin
            writeln(n);
            halt;
        end;
    for i:=1 to n do
        readln(a[i].x,a[i].y);
    if n=3 then
        if(abs(a[2].x-a[1].x)=abs(a[3].x-a[2].x))and(abs(a[2].y-a[1].y)=abs(a[3].y-a[2].y)) then
            begin
                writeln(3);
                halt;
            end
        else
            begin
                writeln(2);
                halt;
            end;
    sort(1,n);
    ans:=0;
    sum:=1;
    pred:=a[1].x;
    for i:=2 to n do
        if a[i].x=pred then inc(sum)
        else
            begin
                ans:=max(ans,sum);
                pred:=a[i].x;
                sum:=1;
            end;
    ans:=max(ans,sum);
    sort1(1,n);
    sum:=1;
    pred:=a[1].y;
    for i:=2 to n do
        if a[i].y=pred then inc(sum)
        else
            begin
                ans:=max(ans,sum);
                pred:=a[i].y;
                sum:=1;
            end;
    ans:=max(ans,sum);
    for i:=1 to n do
        for j:=i+1 to n do
            begin
                sum:=2;
                for k:=j+1 to n do
                    begin
                        aa:=(a[i].y-a[k].y)*(a[j].x-a[k].x);
                        bb:=(a[i].x-a[k].x)*(a[j].y-a[k].y);
                        if aa=bb then inc(sum);
                    end;
               ans:=max(ans,sum);
            end;
    writeln(ans);
    close(input);
    close(output);
end.