program tongmax;

uses crt;

var A:array[1..10000] of integer;

      n,i,t,j,tg:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write(A[',i,']= ');

  readln(A[i]);

 end;

writeln('DAY VUA NHAP LA:');

for i:=1 to n do

 write(A[i],'   ');

writeln;

for i:=1 to n-1 do

 for j:=i+1 to n do

  if A{i]<A[j] then 

   begin

    tg:=A[i];

    A[i]:=A[j];

    A[j]:=tg;

   end;

t:=A[1]+A[2]+A[3];

write('Tong 3 phan tu lon nhat trong day la: ',t);

readln

end.

uses crt;
var n,i,j,x,y,max:longint;
a:array[1..10000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         for x:=1 to i-2 do
            for y:=x to i-1 do
               if a[i]+a[x]+a[y]>max then max:=a[i]+a[x]+a[y];
      end;
   writeln('Max: ',max);
readln
end.