循环结构练习题目2

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.