program phuongt;
uses crt;
var A: array[1..500] of longint;
i, j, n, s, a: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do if A[i]<A[j] then
begin
a:=A[i];
A[i]:=A[j];
A[j]:=a;
end;
s:=A[1]+A[2]+A[3];
write('Tong 3 so lien tiep lon nhat: ', s);
readln
end.