在1000到10000内的整数能被147或197整除的个数是多少?

107
用pascal解决的程序：
program lx;
var
i :integer;
total :integer;
begin
for i:=1000 to 10000 do
if (i mod 147=0) or (i mod 197=0) then
total:=total+1;
writeln(total);
end.