Найти сумму от 100 до 200, кратных 17

program zz1;

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

begin

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

begin

if i mod 17 = 0 then s:=s + i; / / проверяем, если очередное число делится на семнадцать без остатка, то добавляем число в сумму

end;

write (' сумма чисел от 100 до 200, кратных 17 = ', s); / / выводим ответ

end.