bước 1: nhập n
bước 2: đổi n ra chuỗi bằng cách dùng hàm str(n,st);
bước 3: d:=length(st); t:=0;
bước 4: chạy for i từ 1 tới d
bước 5: đổi st[i] ra số bằng cách sử dụng hàm val(st[i],x,y);
bước 6: t:=t+x;
bước 7 nếu t chia hết cho d thì viết (n,' la so dep')
không thì viết (n,' khong la so dep');
bước 8:kết thúc