// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := 100;
var d := n mod 7;
if d <> 0 then n += 7 - d; // первое из трехзначных чисел, кратное семи
Range(n, 999, 7).Sum.Println // с шагом 7, экономим время в шесть раз
end.
// проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
s, i: integer;
begin
s := 0;
for i := 100 to 999 do
if (i mod 7) = 0 then
s := s + i;
Print(s);
end.
