var a:array[1..10000] of longint;
i,b,max,m,x,n:longint;
begin
read(m,x,n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>max then max:=a[i];
for i:=1 to n do
if a[i]=max then break;
b:=(a[i]-x)*m;
write(i,' ',b);
end.
/**************************************************************
	Problem: 1814
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/