Составить программу вычисления произведения чисел от 1 до 500 кратных 13

Question

Составить программу вычисления произведения чисел от 1 до 500 кратных 13

Answer 1

Var sum,i:integer;    beginfor i:=1 to 500 do    if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.

Comments

ой, sum:=sum*i будет