Program Pzim ;
var
w:array[1..100] of integer;
i,m,p:integer;


Begin
for i:=1 to 15 do 
	  	readln(w[i]);

 m:=w[1];
 p:=1;
 for i:=2 to 15 do
 begin 
	  if (w[i]>m) then 
	  begin
	    m:=w[i];
	    p:=i;
	  end; 
 end; 
 writeln('O maior e:     ',m);
 writeln('A posiçao e:     ',p);
   
 End.