Program Diviseurs;
Var n, m, r : Integer;
Begin
Writeln ('Donner un entier');
Readln (n);
m:=n;
Writeln ('les chiffres de n et qui sont diviseurs : ');
Repeat
r:= m mod 10;
m:= m div 10;
If (n mod r = 0) Then Write (r, ' ');
Until m=0;
End.