const
 N=10;
var
 i1,i2,i:integer;
 mas:array[1..N] of integer;
begin
 //...//
 for i1:=1 to N do
  for i2:=1 to N do
   if mas[i2]>mas[i1] then
   begin
    i:=mas[i2];
    mas[i2]:=mas[i1];
    mas[i1]:=i;
   end;
 for i:=1 to N do writeln(inttostr(mas[i]));
 readln;
end.

const
 N=10;
var
 all,bolwe,i:integer;
 srednee:real;
 mas:array[1..N] of integer;
begin
 //...//
 all:=0;
 for i:=1 to N do all:=all+mas[i];
 srednee:=all/N;
 bolwe:=0;
 for i:=1 to N do if mas[i]>srednee then inc(bolwe); //bolwe:=bolwe+1
 writeln(inttostr(bolwe));
 readln;
end.

const
 N=10;
var
 max,i:integer;
 mas:array[1..N] of integer;
begin
 //...//
 max:=0;
 for i:=1 to N do
  if max<mas[i] then max:=mas[i];
 writeln(inttostr(max));
 readln;
end.