Quantidade e Soma Multiplos 5 e 7 de 1 a 10000

program SomaMultiplos5e7;
uses crt;
     var
       n   : integer;
      cont1          : integer;
      cont2          : integer;
       i             : integer;
       x             : integer;
       soma          : integer;
       somacont      : integer;
begin
       i := 0;
        for i := 1 to 10000 do
        if (i mod 5 = 0) then

           begin
           n := i + n;
           cont1 := cont1 + 1;
           end
        else
           if (i mod 7 = 0) then
           begin
            x := i + x;
           cont2 := cont2 + 1;
        end;
         somacont := (cont1 + cont2);
         soma := (n + x);
           writeln( n:6,' ', 'Divisiveis por 5 ');
           writeln (cont1);
           writeln();
           writeln( x:6,' ', 'Divisiveis por 7 ');
           writeln (cont2);
           writeln();
           Writeln(' A Quantidade de Numeros no intervalo: ',somacont);
           writeln(' Soma dos Multiplos de 5 e 7 entre 0 e 10.000 he : ', soma);

 readkey;
end.