Program divisibilite_7;
var n,nb:integer;
(*************************************)
Function div_7 (n : integer ) : boolean ;
Begin
While (n>99) do n := (n div 10) - 2 * (n mod 10);
div_7:=(n mod 7 = 0);
End;
(****************** P.P ****************)
Begin
Writeln('les nombres divisibles par 7 :');
nb:=0;
n:=0;
Repeat
If div_7(n) Then
Begin 
writeln(n:5);
nb:=nb+1;
End;
n:=n+1;
Until nb=100;
writeln;
End.