Составить программу нахождения суммы чисел делящихся ** 5 от 1 до n​

Question

Составить программу нахождения суммы чисел делящихся на 5 от 1 до n​

Answer 1

var s,summ:integer;

begin

writeln("До какого числа считать");

readln(s);

for i:=1 to s do

if i mod 5=0 then

summ:=summ+i;

writeln(summ);

end.