Найти сумму от 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.