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

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