var
  a: array [1..31] of shortint;
  i, b, c, e: integer;
  d: string;
  
begin
  for i := 1 to 31 do
  begin
    a[i] := random(-10, 10);
    write(a[i]:4);
  end;
  writeln();
  b := a[1];
  for i := 1 to 31 do if (abs(a[i]) > b) then b := a[i];
  for i := 1 to 31 do
    if (b = a[i]) then
    begin
      d += String.Format(' [{0}] => {1} ', i, a[i]);
      c := i;
      e += 1;
    end;
  writeln(String.Format('[{0}] => {1}', c, a[c]));
  writeln(e, ':', System.Environment.NewLine, d);
end.