Написать программу в паскале: Найти сумму чисел от 100 до 200 кратных 17.

var

i, sum : integer; / / объявляем переменные целочисленного типа.

begin

for i : = 100 to 200 do / / начало цикла.

begin

if (i mod 17 = 0) then / /проверяем является ли число кратным 17.

begin

sum : = sum + i; / / Считаем сумму чисел кратных 17.

end;

end;

writeln ('Сумма чисел из диапазона от 100 до 200, кратных 17 равна : ', sum);

end.