关于PASCAL程序设计的一道题的答案

program 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.