type integer=longint;
var a:array[1..2000,1..2] of integer;
    b:array[1..2000,2..1000] of boolean;
    max,n,i,j,k,s:integer;
    h,f,m,m100:word;
begin
  assign(input,'bomb.in');
  reset(input);
  readln(n);
  for i:=1 to n do readln(a[i,1],a[i,2]);
  close(input);
  fillchar(b,sizeof(b),true);
  max:=2;
  for i:=1 to n-2 do
    for j:=i+1 to n-1 do
    if b[i,j] then
      begin
        s:=2;
        for k:=j+1 to n do
          if (a[i,2]-a[j,2])*(a[k,1]-a[j,1])=(a[i,1]-a[j,1])*(a[k,2]-a[j,2])
             then begin s:=s+1;b[i,k]:=false;b[j,k]:=false;end;
        if s>max then max:=s;
      end;
  assign(output,'bomb.out');
  rewrite(output);
  writeln(max);
  close(output);
end.