Program massiv;
Const n=15;
Var a:array[1..n] of integer;
    i,kol:Byte;
Begin
 For i:=1 to n do
  Begin
   Write('Введите ',i,' элемент массива: ');
   Read(a[i]);
  end;
 For i:=1 to n do
  Begin
   If a[1]<a[i] Then inc(kol); 
  End;
 For i:=1 to n do
  Write(a[i],' ');
 WriteLn('Кол-во чисел больших первого: ',kol);
End.