Program BTT;
Uses crt;
Var n: longint;
Function CP(a: longint): boolean;
Begin
If a=sqr(trunc(sqrt(a))) then exit(true);
exit(false);
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
If CP(n) then Write(n,' la so chinh phuong')
Else Write(n,' khong phai so chinh phuong');
Readln
End.