Bạn xử lí dựa trên cơ sở 3 số lớn nhất thôi nha còn cái output ra chỉ là 1 phép tính nhỏ vs 3 số lớn nhất đã tìm ra.

procedure xuly;
var max,max1,max2,s,i:integer;
begin
        max := a[1];
        max1 := a[1];
        max2 := a[1];
        for i := 1 to n do
        begin
                if max < a[i] then max := a[i];
        end;
        for i := 1 to n do
        begin
                if max1 <> max1 then
                if max1 < a[i] then max1 := a[i];
        end;
        for i := 1 to n do
        begin
                if (max2 <> max1) and (max2 <> max) then
                if max2 < a[i] then max2 := a[i];
        end;
        s := max*2+max1*2+max2*2;
        write(f,s);
end;

uses crt;

var a : array[1..100] of integer;

i, j, n : byte;

begin

clrscr;

write('nhap so n : ' ) ; readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : ');

readln(a[i]);

end;

for j := n downto 2 do

for i := 1 to j - 1 do

if a[i] < a[i + 1] then

begin

a[i] := a[i] + a[i + 1] ;

a[i+1] := a[i] - a[i+1];

a[i] := a[i] - a[i+1] ;

end;

write('S = ', sqr(a[1]) + sqr(a[2]) + sqr(a[3]));

readln

end.