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

C / C++:

...
int curNum = 4, sum = 0;

while (curNum <= 30)
{
  if (curNum % 3 == 0)
    sum += curNum;
  ++curNum;
}

printf("%i", sum);
...

PASCAL:

var curNum, sum : integer;
begin
  curNum := 4;
  sum := 0;

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