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.