Найти сумму чисел, делящихся на 5 в промежутке от 60 до 80 в паскале

Цикл for используется программе потому, что промежуток, из которого производится выборка, известен. Следует учесть, что крайние точки не принадлежат промежутку. Следовательно выборка должна производиться из чисел 61..79.

program sum_;

var s: integer;

begin

s:= 0;

for i:integer:= 61 to 79 do if i mod 5 = 0 then s := s + i;

writeln(\'Сумма чисел делящихся на 5 из интервала [60,80]: \', s)

end.