Используя цикл предусловие вывести на экран сумму чисел кратных 3 из

-------------------
C / C++:
-------------------
...
int curNum = 4, sum = 0;

while (curNum lt;= 30)

  if (curNum % 3 == 0)
    sum += curNum;
  ++curNum;


printf("%i", sum);
...
----------------------
PASCAL:
----------------------
var curNum, sum : integer;
begin
  curNum := 4;
  sum := 0;

  while (curNum lt;= 30) do begin
    if curNum mod 3 = 0 then
      sum := sum + curNum;
    curNum := curNum + 1;
  end;
  writeln(sum);
end.