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

Эх, нужно на pascal'e

так разница не большая

цикл от 1 до 50 и смотришь каждое число ,если оно кратно 3 то добавляешь в переменю

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