Program BTT;
Uses crt;
Var n,i,t,d: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

Function scp(b: longint): boolean;
Begin
        If b=sqr(trunc(sqrt(b))) then exit(true);
                                       exit(false);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        t:=0;
        If ngto(n) then Writeln(n,' la so nguyen to')
        Else Writeln(n,' khong phai la so nguyen to');

        Write('Cac so ngto tu 2 -> ',n,' la: ');
        For i:=1 to n do
                If ngto(i) then Write(i,' ');

        Writeln;

        If scp(n) then Writeln(n,' la so chinh phuong')
        Else Writeln(n,' khong phai la so chinh phuong');
        Write('Cac so chinh phuong chia het cho 3 va 6 tu 0 -> ',n,' la: ');
        For i:=0 to n do
                If (scp(i)) and (i mod 3 = 0) and (i mod 6 = 0) then Write(i,' ');
        Readln;

End.