Cho số nguyên dương N,hãy cho biết N có là số chính phương không

var n:longint;

begin

write('Nhap n: '); readln(n);

if sqrt(n) = trunc(sqrt(n)) then write('La so chinh phuong') else write('Khong phai la so chinh phuong');

readln;

end.

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.