program cch(input,output);
var
 i,n,ans,ch,k,j:longint;
 a:array[1..1000,1..2] of longint;
begin
 assign(input,'stars.in');
 assign(output,'stars.out');
 reset(input);
 rewrite(output);
 readln(n);
 for i:=1 to n do
  readln(a[i,1],a[i,2]);
 ans:=0;
 for i:=1 to n do
   for j:=i+1 to n do
    begin
     ch:=2;
     for k:=1 to n do
      if (k<>i)and(k<>j) then
       if (a[i,1]-a[j,1])*(a[k,2]-a[j,2])=(a[i,2]-a[j,2])*(a[k,1]-a[j,1]) then
        inc(ch);
     if ch>ans then ans:=ch;
    end;
 write(ans);
 close(input);
 close(output);
end.