循环结构练习题目2

5. 求出 1 - 10000 以内所有所有 10 以内的素数的倍数，统计它们的和。

program exExhaustive5_1;
const e = 10000;
var
     i, sum : Longint;
begin
        for i := 2 to e do
            if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) or (i mod 7 = 0) then
               sum := sum+i;
        writeln('Sum is ', sum);
        readln;
end.