program SumOfNumbers;

var
i, sum: integer;

begin
sum := 0;

for i := 103 to 999 step 7 do
begin
sum := sum + i;
end;

writeln('Сумма натуральных трехзначных чисел, которые при делении на 7 дают в остатке 3: ', sum);
end.