Ответы и объяснения

2013-10-17T14:27:25+00:00
Var S, I: integer;
Begin
     FOR i := 0 to 1000 do
         if (i mod 13 = 0) then s := s + 1;
     writeln(s);
End.

Вот так)