найти количество кратных 13 чисел от 1 до 1000

Var S, I: integer;
Begin
     FOR i := 0 to 1000 do
         if (i mod 13 = 0) then s := s + 1;
     writeln(s);
End.

Вот так)