snezzka

var ost: array [1..99] of integer;
i, K, D, n, kol: integer;
begin
for i:=1 to 6 do begin
ost[i]:=0;
end;

writeln ('Vvedite kolichestvo utrennikov: ');
readln (n);
writeln ('Vvedite kolichetvo konfet i detei: ');
for i:=1 to n do
    begin
    readln (K,D);
    if (K mod D>0) then
    ost[K mod D]:=ost[K mod D]+1;
    end;

kol:=1;
for i:=1 to 99 do
    begin
    if ost[i]>=ost[kol] then kol:=i;
    end;
writeln (kol);
end.