Program dpA ;
var numero, n, num2:integer;
 Begin
   writeln('Venha um numero');
   readln(numero);
   writeln('D.p. de ', numero, ':');
   num2:= numero div 2;
   for n:=2 to num2 do
   	if numero mod n=0 then
   		writeln(n)
 End.