program numero_maior_array;
type array1=array[1..15] of smallint;
var V: array1;
	i,maior,menor,menor_i,maior_i: smallint;
	
begin
	for i:=1 to 15 do
		readln(V[i]);
	maior:=V[1];
	maior_i:=1;
	for i:=1 to 15 do begin
		if V[i]>=maior then begin
			maior:=V[i];
			maior_i:=i;
			end;
	end;		
	menor:=V[1];
	menor_i:=1;
	for i:=1 to 15 do begin
		if V[i]<=menor then begin
			menor:=V[i];
			menor_i:=i;
			end;
	end;		
	writeln('O maior e ',maior,' na posicao ',maior_i);
	writeln('O menor e ',menor,' na posicao ',menor_i);
	readln;
end.