Найти сумму натуральных трехзначных чисел, каждое из которых при делении на 7 дает в остатке 3. (С использованием цикла, на языке Pascal)

uses crt;var number:integer;begin                 number := 0;                   for var i := 100 to 999 do                  if(i mod 7 = 3) then                            number := number + i;                  writeln('Сумма: ', number);end.