clear
s=0
for i=1 to 100
if mod(i,5)=0
s=s+i
endif
endfor