Из первых 50 натуральных чисел выбрать числа кратные трем и найти их сумму pascal

For (int i = 1;i<51;i = i+1)
{
      if ( i%3==0 )                 //   % - это mod
          sum = sum + i;
}
это на си