如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?

var sum3,sum5,sum7,i:longint;
begin
for i:=1 to 200 do
begin
if(i mod 3=0)then inc(sum3,i);
if(i mod 5=0)then inc(sum5,i);
if(i mod 7=0)then inc(sum7,i);
end;
writeln(sum3,' ',sum5,' ',sum7);
end.
再问： 看不懂哎,sum是什么意思?