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

program zz1;

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

begin

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

begin

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

end;

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

end.