Найти сумму чисел кратных 5 от 1 до N.

program zz1;

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

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

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

begin

if i mod 5 = 0 / / проверяем условие, если при делении на 5 число дает в остатке ноль, то

then s: = s + i; / / прибавляем это число к сумме

end;

write (' сумма чисел кратных 5 от ', 1, ' до ', n, ' = ', s); / / выводим ответ

end.