const
 n = 5;
var
  a: array [1..n] of integer;
  i, imax, imin, max, min,k: integer;

begin
writeln('Zapolnite massive');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln;
    max:=a[1];
    min:=a[1];
  for i:=2 to n do
    begin
      if a[i] > max then
        begin
          imax:=i;
          max:=a[i];
        end;
      if a[i] < min then
        begin
          imin:=i;
          min:=a[i];
        end;
    end;
k:=abs(imin - imax)-1;
   if n=0 then writeln('0')
  else writeln(k);
  readln;
end.