Ở đây mình sẽ dùng mảng a kiểu bản ghi gồm 2 trường.

+ h:longint → chiều cao của cây

+c:longint → độ thẩm mĩ của cây

Trong đề có 2 điều kiện

+ ĐK 1: 1 ≤ i ≤ j ≤ k ≤ N (Do chỉ in tổng giá trị thẩm mỹ lớn nhất nên không cần quan tâm. Không như điều kiện 2 vì 3 phần tử ở vị trí khác nhau thì i,j,k chắc chắn khác nhau)

+ ĐK 2: Hi < Hj < Hk(Điều kiện này chỉ cần quan tâm là 3 cái giá trị khác nhau thôi ko cần quan tâm cái nào nhỏ,lớn hơn vì chỉ xuất ra tổng thôi.)

Sau đó mình chỉ cần sắp xếp độ thẩm mĩ từ bé đến lớn. Xoá các phần tử có chiều cao lớn nhưng bằng nhau sau đó tính tổng 3 phần tử đầu tiên(lớn nhất và đạt yêu cầu).

Code

Program tinh;
Type
    caicay = record
        h:longint;
        c:longint;
end;
Var a:array[1..3000] of caicay;
i,n,j,s:longint;
t:caicay;
fi,fo:text;
BEGIN
assign(fi,'cau2.inp');
assign(fo,'cau2.out');
reset(fi);
Readln(fi,n);
For i:= 1 to n do Read(fi,a[i].h);
Readln(fi);
For i:= 1 to n do Read(fi,a[i].c);
close(fi);
For i:= 1 to n - 1 do
    For j:=i+1 to n do
    If a[i].c < a[j].c then begin t:=a[i]; a[i]:=a[j]; a[j]:= t end;
For i:=2 to 3 do While a[i].h = a[i-1].h do begin a[i]:=a[i+1]; n:= n - 1;end;

s:=a[1].c+a[2].c+a[3].c;
rewrite(fo);
Writeln(fo,s);
close(fo);
END.