Найдите сумму всех чисел, делящихся на 13 в интервале [1;1000] — Pascal(Паскаль)

var
 s,i:integer;
begin
 s:=0;
 for i:=1 to 1000 do
  if i mod 13 = 0 then s:=s+i;
  writeln('Summa=',s);
end.

var
 s,i:integer;
begin
 s:=0;
 for i:=1 to 1000 div 13 do
    s:=s+i*13;
 writeln('Summa=',s);
end.