определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

var sum,i:integer;beginsum:=0;for i:=100 to 999 doif (i mod 3=0) then sum:=sum+i;writeln('Сумма трехзначных чисел кратных трем равна ',sum);end.