program xmz;
var
 f1,f2:text;
 a,b,c,n,t,s:longint;
 x:array[1..1000]of integer;
 y:array[1..1000]of integer;
begin
 assign(f1,'stars.in');assign(f2,'stars.out');
 reset(f1);rewrite(f2);
 read(f1,n);
 for a:=1 to n do
  read(f1,x[a],y[a]);
 for a:=1 to n do
  for b:=a+1 to n do
   begin
    for c:=1 to n do
     if x[b]*(y[c]-y[a])-y[a]*y[b]*x[b]=y[b]*(x[c]-x[a])-y[a]*x[a]*x[b] then
     t:=t+1;
    if t>s then s:=t;t:=0;
   end;
 writeln(f2,s);
 close(f1);close(f2);
end.