Mình sẽ dùng hai hàm để tìm số hoàn thiện và chính phương.

 + Hàm sht để tìm số hoàn thiện:

         Chạy vòng lặp từ 1 đến n - 1  cộng các ước số nếu ước số = chính số đó thì đó là số hoàn thiên      

+ Hàm scp để tìm số chính phương:

         Dùng hàm frac() để lấy phần thập phân của sqrt(a) nếu = 0 thì căn bậc 2 của a là số nguyên hay a là số chính phương

Code

Program timso;
uses crt;
Var n:longint;

Function sht(a:longint):boolean;
var i,t:longint;
kq:boolean;
begin 
t:=0;
kq:=false;
For i := 1 to a-1 do If (a mod i = 0) then inc(t,i);
If t = a then kq:= true;
sht := kq;
end;

Function scp(a:longint):boolean;
var kq:boolean;
begin 
kq:=false;
If (frac(sqrt(a)) = 0) then kq:=true;
scp := kq;
end;

BEGIN
clrscr;
Write('Nhap N: '); Readln(n);
If sht(n) then Writeln(n,' la so hoan thien');
If scp(n) then Writeln(n,' la so chinh phuong');
If not(sht(n)) and not(scp(n))then Writeln('Khong tim duoc');
Readln;
END.