uses crt;
var n,i,j,cnt: integer;
    primeDivisors: array[1..1000] of integer;
    check: boolean;
begin
    readln(n);
    cnt := 0;
    write('- Cac uoc la: 1 ');
    for i := 2 to n do
        if n mod i = 0 then begin
            write(i,' ');
            check := true;
            for j := 2 to i - 1 do
                if i mod j = 0 then begin
                    check := false;
                    break;
                end;
            if check then begin
                inc(cnt);
                primeDivisors[cnt] := i;
            end;
        end;
    writeln;
    write('- Cac uoc nguyen to: ');
    for i := 1 to cnt do write(primeDivisors[i],' ');
end.