Задачи для начинающих

[иван44444444]

пожалуйста помогите составить программу которая считает сумму чисел меньших 100 и кратных 3)

[Hacker19_90]

sum := 0;
for i := 1 to 99 do
  if ((i mod 3) = 0) then sum := sum + i;