program test;
var
i,l:integer;
a:array[1..12] of real;
m:real;
for i:=1 to 12 do
m:=abs(a[1]-3.1416);
l:=1;
for i:=2 to 12 do
if abs(a[i]-3.1416)<m then
m:=abs(a[i]-3.1416);
l:=i;
end;
write(l);
end.
program test;
var
i,l:integer;
a:array[1..12] of real;
m:real;
beginfor i:=1 to 12 do
read(a[i]);m:=abs(a[1]-3.1416);
l:=1;
for i:=2 to 12 do
beginif abs(a[i]-3.1416)<m then
beginm:=abs(a[i]-3.1416);
l:=i;
end;
end;
write(l);
end.