найдите сумму кратных 7 чисел , меньших 100

var s,i:integer;
begin
  for i:=1 to 99 do
  if i mod 7=0 then s:=s+i;
  writeln(s);
end.

В зависимости от того, как стоит условие, число 99 может измениться на 100. Разницы в вычислениях, в принципе, не будет, т.к. 100 не кратно 7. Но с учетом того, что [строго меньше 100], программа выглядит именно так.