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.

`@Pô`

uses crt;
 var n, i : longint ;
  function perfect_square (ss : longint) : boolean ;
    begin
    if sqrt(ss) = trunc(sqrt(ss)) then perfect_square := True 
        else perfect_square := False ;
    end ;
function prime(s : longint) : boolean ;
        var i : longint ;
     begin
    if s<2 then prime:=false else prime:=true;
    for i:=2 to trunc(sqrt(s)) do if s mod i = 0 then
                     begin
                        prime:=false;
                        break; 
                     end;
     end ;
begin
clrscr;
  readln(n);
    if prime(n) then writeln('NGUYEN TO') 
        else writeln('KHONG LA NGUYEN TO');
    write('SO CHINH PHUONG 1-',n,': ');
    i := 0 ;
    repeat
    inc(i);
    if perfect_square(i) then write(i,' ');
    until i > n ;
    writeln;
    write('CAC SO NGUYEN TO TU 2-',n,': ');
    i := 2 ;
    write(2,' ');
    repeat 
    inc(i);
    if prime(i) then write(i,' ');
    until i > n ;
    writeln;
end .

// Với 1 số hàm, mình chỉ viết gọn, ngầm định là trả về True