Найти сумму чисел, делящихся на 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.