uses crt;
Var i,n,S: integer;
Begin
Clrscr;
Write ('Nhap so can kiem tra n: '); readln(n);

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

if n mod 2<>0 then writeln (n,' la so le);

If (n=0) or (n=1) then
Writeln(n,' Khong phai la so nguyen to')
Else
Begin
i:=1;
Repeat
i:= i+1;
Until (n mod i= 0) or (i*i>n);
If i*i>n then
Writeln (n,' la so nguyen to')
Else
Writeln (n,' khong phai la so nguyen to');
End;

for i:=1 to n do

if n mod i=0 then s:=s+i;

if s=n then writeln (n,' la so hoan hao')

else writeln (n,' khong phai la so hoan hao');
Readln;
End.

uses crt;
var i,tong,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');

        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');

        tong:=0;
        for i:=1 to n-1 do
                if n mod i=0 then tong:=tong+i;
        if tong=n then write(n,' la so hoan hao')
        else write(n,' ko phai so hoan hao');
        readln
END.

Cho mik ctlhn nha.