Найти сумму положительных целых чисел от - 50 до 200, кратных 5 и 8

program zz1;

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

begin

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

begin

if (i > 0) and (i mod 5 = 0) and (i mod 8 = 0) then s:=s + i; / / проверяем, если очередное число положительное и делится на пять без остатка и одновременно делится на восемь без остатка, то добавляем число в сумму

end;

write (' сумма положительных целых чисел от - 50 до 200, кратных 5 и 8 = ', s); / / выводим ответ

end.