Отыскать сумму чисел, делящихся на 5 в промежутке от 60 до

Цикл 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.