Hello.
 
Voilà un exercice que je doit préparer pour jeudi car j'ai un contrôle:
 
Ecrivez un programme Pascal qui affiche l'ensemble des nombres entiers entre 1 et 10000 dont la somme des chiffres est divisible par 7.
 
exemples:
123: 1+2+3=6>>pas bon
142: 1+4+2=7>>bon  
 
Est-ce que quelqu'un peut essayer de voir si ceux que j'ai fait est correct, si il y a des erreurs et où ( notament les ";" et les "interger" et "real" )?
 
program div 7;
 
var a,b,c,d,e,f,g,h,i:real;
 
for i:=1 to 10000 do
begin
a:=i mod 10000
b:=i div 10000
c:=a mod 1000
d:=a div 1000
e:=c mod 100
f:=c div 100
g:=e mod 10
h:=e div 10
g:=d mod 1
h:=d div 1
 
if (b+d+f+g+h) mod 7=0
writeln(i)
end.
 
Merci d'avance

uses crt;
var i,n,s:integer;
 
begin
     clrscr;
     for n:=1 to 1000 do
         begin
              i:=n;
              s:=0;
              repeat
                    s:=s+i mod 10;
                    i:=i div 10;
 
              until i=0;
 
              if s mod 7 = 0 then write(n,' ');
         end;
     readln;
end.