n = int(input('nhap số phần tử muốn có : '))# để có số 1 số phần tử nhất định ví dụ: cho input thành 10 thì sẽ 10 số/phần tử
A = []
for i in range(n):
 A.append(int(input(f'nhap phần tử thứ {i} :' )))#sử dụng hàm để tối ưu cụ thể là hàm append để thêm vào 1 list/danh sách/mảng
Sum = 0
def check(a):#sử dụng chương trình con để tối ưu bài toán bạn có thể trực tiếp cx được uwu
 dem = 1
 if len(str(a)) == 1:#cái này để kiểm tra coi thử nếu số đó chỉ có 1 chữ số thì trực tiếp trả về là không phải số nguyên tố
  return False#trả giá trị là False khẳng định là không phải số nguyên tố sau đó là dừng luôn chương trình con
 for i in range(len(str(a))):# giờ bắt đầu đếm coi thử có đủ điều kiện đề bài cho không
  for j in range(len(str(a))):# ở đây mình làm 2 hàm for lồng nhau để làm cho dễ chứ mình lười làm kiểu kia uwu
   if a[i]<a[j]:# so sánh coi thử số trc có nhỏ hơn số sau hay không.
    dem += 1# nếu thoả thì dem += 1/ dem = dem +1
  break# 1 hàm khác để tối ưu bài toán, hàm này giúp dừng chương trình
 if dem == len(str(a)):# khi mà ví dụ 1561 có 4 số đều có số đầu bé hơn số sau thì đây là số tiến/ số phát triển 
  return True
 return False
for i in A:
 if check(i):#câu lệnh này check xem là check(i) có True hay không mình có giản lược 1 xíu thay vì if check(i) == True: thì mình sài if check(i):
  Sum += int(i)# tính tổng
print(Sum)# in tổng ra

#p/s: mình có cả code cả hình ảnh cho bạn dễ nhìn/copy nha uwu 

uses crt;
var n, i, j, X : longint;
    A : array [1 .. 1000] of longint;
    S : string;
    
function KT (N : integer) : boolean;
    begin
        str(N, S);
        KT := true;
        j := length(S);
        while (KT = true) and (j > 1) do
            begin
                if S[j] <= S[j - 1] then KT := false;
                j := j - 1;
            end;
    end;
    
begin
    clrscr;
    readln(N);
    for i := 1 to N do read(A[i]);
    
    X := 0;
    for i := 1 to N do
        if (A[i] > 9) and (KT(A[i])) then
            X := X + A[i];
        
    write(X);
    readln
end.