500以内最大的10个能被13或17整除的自然数之和

<%
dim n : n = 0
dim sum : sum = 0
response.Write("500以内最大的10个能被13或17整除的自然数分别为：<br><br>")
for i = 500 to 17 step -1
if i mod 13 = 0 or i mod 17 = 0 then
n = n + 1
sum = sum + i
response.Write(i)
if n < 10 then
response.Write(",")
end if
end if
if n = 10 then
exit for
end if
next
response.Write("<br><br>500以内最大的10个能被13或17整除的自然数之和<br><br>"&sum)
%>
ASP程序