Program divisibilite_13;
Var n,nb:integer;
(**********************************)
Function div_13 (n : integer ) : boolean;
Begin
While (n>99) do n := (n div 10) + 4 * (n mod 10);
div_13:=(n mod 13 =0);
End;
(****************** P.P ****************)
Begin
Writeln('les nombres divisibles par 13 :');
nb:=0;
n:=0;
Repeat
If div_13(n) Then
Begin
writeln(n:5);
nb:=nb+1;
End;
n:=n+1;
Until nb=100;
End.