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.

write('nhap do dai cua day so n=');readln(n);

writeln('nhap cac phan tu cua day so :');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max :=a[1] ; min:=a[1];

for i:=2 to n do

begin

if max &lt;a[i] then max :=a[i];

if min &gt;a[i] then min :=a[i];

end;writeln('so lon nhat la:',max);

writeln('so be nhat la:',min);
readln

end.