program kiemtraso;

uses crt;

var n,i:integer;

      kt:boolean;

begin

clrscr;

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

if n mod 2=0 then writeln(n,' la so chan')

    else writeln(n,' la so le');

if n=0 then writeln(n,' khong la so am hay la so duong')

    else if n<0 then writeln(n,' la so am')

    else writeln(n,' la so duong');

kt:=true;

if n<2 then kt:=false

else

for i:=2 to trunc(sqrt(n)) do

   if n mod i=0 then kt:=false;

if kt=true then writeln(n,' la so nguyen to')

    else writeln(n,' khong la so nguyen to');

if n<=0 then write(n,' khong phai so chinh phuong')

else if n=sqr(trunc(sqrt(n))) then writeln(n,' la so chinh phuong')

        else writeln(n,' khong la so chinh phuong');

readln

end.

uses crt;
var i,n:integer;
    kt:boolean;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);

        if n mod 2=0 then writeln(n,' la so chan')
        else writeln(n,' la so le');

        if n<0 then writeln(n,' la so nguyen am')
        else if n>0 then writeln(n,' la so nguyen duong')
        else writeln(n,' la so nguyen');

        kt:=true;
        for i:=2 to round(sqrt(n)) do
                if n mod i=0 then
                begin
                        kt:=false;
                        break;
                end;
        if kt then writeln(n,' la so nguyen to')
        else writeln(n,' ko phai so nguyen to');

        if sqr(round(sqrt(n)))=n then write(n,' la so chinh phuong')
        else write(n,' ko phai so chinh phuong');
        readln
END.

Cho mik ctlhn nha.