var n,i,k,count: integer;
begin
writeln('Введите натуральное число: ');
readln(n);
for i:=2 to n-1 do begin
if n mod i = 0 then begin
count:=0;
for k:=2 to i-1 do
if (i mod k = 0) then begin
count+=1;
end;
if count=0 then
writeln(i, ' ');
end;
end;
end.