Program aaa;
var n,b:integer;
begin
writeln('enter a number');
read(n);
b:=n;
while (b<>0)
do
begin
if (n mod b)=0 then writeln(b);
b:=b-1;
end;
end.
Program aaa;
var n,b:integer;
begin
writeln('enter a number');
read(n);
b:=n;
while (b<>0)
do
begin
if (n mod b)=0 then writeln(b);
b:=b-1;
end;
end.