185
2023-04-26 20:22
adminprogram sd;
var i,j,k,l,f:integer;
b:boolean;
begin
i:=2;{不写2就输出1了}
b:=false;
while not b do
begin
j:=300 mod i;
k:=262 mod i;
l:=205 mod i;
f:=167 mod i;
if (j=k)and(l=f)and(j=l) then begin
writeln(i,' ',300 mod i);
b:=true;
end
else i:=i+1;
end;
end.