type vector=array[1..20] of integer;
procedure citire(var a:vector;var n:longint;var k:byte);
var f:text;
    i:longint;
begin
assign(f,'secventa.in');reset(f);
while not eof(f) do begin
read(f,n,k);
for i:=1 to n do read(f,a[i]);
end;
end;
var a:vector;
    n,k:integer;
procedure construire(a:vector;n,k:integer);
var i,j,max,min:integer;
begin
max:=-maxint;
for i:=n downto 1 do begin