var n,i,c:longint;
function checkprime(x:longint):boolean;
begin
if x=1 then exit(false);
c:=2;
while c<trunc(sqrt(n)) do begin if x mod c = 0 then exit(false); inc(c); end;
exit(true);
end;
function chinhphuong(x:longint):boolean;
begin
if sqrt(x) = trunc(sqrt(x)) then exit(true);
exit(false);
end;
begin
write('Nhap n: '); read(n);
if checkprime(n) then writeln('N la so nguyen to') else writeln('N khong phai la so nguyen to');
i:=0;
while i<n do begin if chinhphuong(i) then write(i,' '); inc(i); end;
writeln;
i:=1;
while i<n do begin if checkprime(i) then write(i,' '); inc(i); end;
readln;
readln;
end.
