Python:

n = int(input())
d = str(n)
s = list(d)
print("Số", n, "có", len(s), "chữ số.")
p = 0
for i in s:
      p += i
print("Tổng các chữ số của", n, "là: ", p)
def KTSNT(n):
       u = 0 
       for i in range(1, n + 1):
             if n % i == 0:
                  u += 1 
       if u == 2:
            return 1 
       if u != 2:
            return 0
if KTSNT(n) == 1:
     print(n, "là số nguyên tố.")
if KTSNT(n) == 0:
     print(n, "không phải là số nguyên tố.")
def KTSNT(p):
      z = 0
      for i in range(1, p + 1):
            if p % i == 0:
                 z += 1 
      if z == 2:
           return 1 
      if z != 2:
           return 0
if KTNST(p) == 1:
     print("Tổng các chữ số của", n, "là số nguyên tố.")
if KTSNT(p) == 0:
     print("Tổng các chữ số của", n, "không phải là số nguyên tố.")

Uses Crt;

Var kt : boolean;
     n,i,t,x,code : integer; 

       S : string;

Begin

 Clrscr;

 Write('Nhap n :'); Readln(n);

 Str(n,S);

 Writeln(n,' co ',length(S),' chu so ');

 For i:=1 to length(S) do 

  Begin

   Val(S[i],x,code);

   t:=t+x;

  End;

 Writeln('Tong cac chu so cua ',n,' la : ',t);

 For i:=2 to trunc(sqr(n)) do If n mod i = 0 then kt:=false else kt:=true;

 If kt=true then Writeln(n,' la so nguyen to ') else Writeln(n,' khong phai la so nguyen to');

 For i:=2 to trunc(sqr(t)) do If t mod i = 0 then kt:=false else kt:=true;

 If kt=true then Writeln('Tong cac chu so cua n la so nguyen to ') else

  Writeln('Tong cac chu so cua n ko phai la so nguyen to ');

 Readln

End.