var  
    x : array[1..100] of integer;  
    i,n,k,n_ : byte;  
    c,d : integer;  

  begin  
    write('vvedite interval : ');readln(c,d);  
    write('razmer massiva : ');readln(n);  
    writeln('vvedite meassiv : ');  
    for i:=1 to n do  
     read(x[i]);  

    max := x[1];  
     n_ := 1;  
    for i:=1 to n do  
      if (max < x[i]) and  
         (x[i] >= c) and  
         (x[i] <= d)  
         then  
            begin  
              max := x[i];  
               n_ := i;  
            end;  
    writeln;  
    writeln('max element : x[',n,']=',max);  
  end.