Soma dos numeros divisiveis por n entre a e b

program soma32a120;

  var
    soma: integer;
    i: integer;
  begin
    soma := 0;
    i := 35;
    while  i <= 120 do
      begin
        if(i mod 7 = 0) then
          begin
            soma := soma + i;
          end;
        i := i + 1;
      end;

    writeln('A soma dos números divisíveis por 7 entre 35 e 120 é: ', soma);
end.