---

Une solution de l'exercice 1 du TP6 d'informatique en DEUG MIAS+MASS S1

---

PROGRAM tp6exc1 ;

VAR i      : integer ;
   unites, dixaines, centaines, milliers :  integer ;
 
BEGIN
   for i:=1000 to 9999 do
   begin
      unites:=i mod 10 ;
      dixaines:=(i div 10) mod 10 ;
      centaines:=(i div 100) mod 10 ;
      (* N.B. (i div 100)=((i div 10)div 10) *)
      milliers:=(i div 1000) mod 10 ;
      if unites+dixaines=centaines+milliers then write(i:5) ;
   end ;
   writeln ;
END.

---