var a:array[1..100000] of longint;
    i,n,max:longint;
    b:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>max then max:=a[i];
b:=max*max*3.14;
write(b:0:2,' ');
for i:=1 to n do
if a[i]=max then write(i);
end.
/**************************************************************
	Problem: 1813
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/