program a1;
  var a:array[1..100] of real;
  var z:real;
  var amax:real;
  var apos:integer;
  var znum:integer;
  var i:integer;
begin
  a[1]:=7;
  a[2]:=25;
  a[3]:=4.5;
  a[4]:=0;
  a[5]:=17;
  a[6]:=61;
  a[7]:=-100;
  a[8]:=1;
  a[9]:=-4;
  a[10]:=22;

  write('Введите Z: ');
  readln(z);

  amax:=-10000000;
  znum:=0;

  for i:=1 to 10 do begin
    if a[i] > amax then begin
      amax:=a[i];
      apos:=i;
    end;
    if a[i] > z then
      znum:=znum+1;
  end;

  writeln('Максимальный элемент массива: a[', apos, '] = ', amax:0:1);
  writeln('Число элементов, больших чем ', z:0:1, ' = ', znum);
end.