Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.

program zz1;

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

begin

i:=1; / / задаем начальное значение для параметра цикла

while i < 100 do / / организуем цикл, пока параметр цикла не достигнет ста

begin

if (i mod 2 = 0) and (i mod 7 = 0) then b:=b + i; / / проверяем, если число четное и кратное семи, то добавляем число к сумме

i:=i + 1; / / увеличиваем параметр цикла на единицу

end;

write (' сумма всех натуральных чисел, четных, кратных 7 и меньших 100 = ', b); / / выводим ответ

end.