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.
