uses crt;
var n,i:integer;
function CP(a:integer):boolean;
var k:real;
begin
k:=round(sqrt(a));
if k*k=a then CP:=true;
end;
function NT(a:integer):boolean;
var k:integer;
begin
k:=2;
while a mod k <>0 do k:=k+1;
if a=k then nt:=true;
end;
begin
    clrscr;
    write('Nhap so N=');readln(n);
    writeln('cac uoc so chinh phuong cua ',n);
    for i:=1 to n do
        if (n mod i=0) and (CP(i)=true) then write(' ',i);
        writeln;
      writeln('Cac uoc so nguyen to cua ',N);
      for i:=1 to n do
        if (n mod i=0) and (NT(i)=true) then write(' ',i);
    readln;
end.