Const
 N=10;

Var
 A,B,C:Array[1..N] of Integer;
 i:Integer;
 Mean:Real;

Begin
 Mean:=0;
 for i:=1 to N do
  begin
   Write('A[',i:2,']= '); Readln(A[i]);
   Write('B[',i:2,']= '); Readln(B[i]);
   Write('C[',i:2,']= '); Readln(C[i]);
   Mean:=Mean+A[i]/N;
  end;
 Writeln('All: ');
 for i:=1 to N do
  writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Writeln('Mean = ',Mean:0:5);
 Writeln('Selected;');
 for i:=1 to N do
  if (Sqr(A[i])>Sqr(B[i]-C[i])) and
     (Sqr(B[i])>Sqr(A[i]-C[i])) and
     (Sqr(C[i])>Sqr(B[i]-A[i])) then
   writeln(i:2, '   A= ',A[i]:4,'   B= ',B[i]:4,'   C= ',C[i]:4);
 Readln
End.