найти сумму натуральных чисел которые делятся на 3 и 4 в диапазоне от m до n

program zz1;

var n, i, m, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное число n '); / / вводим с клавиатуры последнее число ряда

read (n);

write (' введите заданное число m '); / / вводим с клавиатуры начальное число ряда

read (m);

for i: = m to n do / / организуем цикл, в котором переберем числа от m до n

begin

if (i mod 3 = 0) and (i mod 4 = 0) then s: = s + i; / / проверяем, если число делится на три без остатка и одновременно делится на четыре без остатка, то добавляем его в сумму

end;

write (' сумма натуральных чисел которые делятся на 3 и 4 в диапазоне от m до n = ', s); / / выводим ответ

end.