câu 1:
-bước 1: nhập n
-bước 2: t:=0; chạy for từ 1 tới n div 2
-bước 3: nếu n chia hết cho i thì t:=t+i;
-bước 4: nếu t=n thì viết(n,' la so hoan hao');
-bước 5: kết thúc
câu 2:
-bước 1: nhập n
-bước 2: đổi n ra st bằng cách dùng hàm str(n,st);
-bước 3: d:=length(st);
-bước 4: chạy for từ d xuống 1
-bước 5: viết st[i];
-bước 6: kết thúc