var
a, b, c, d,nmin,min: integer;
begin
min:=MaxInt;
readln(a);
if a<min then begin
nmin:=1;
min:=a;
end;
readln(b);
if b<min then begin
nmin:=2;
min:=b;
end;
readln(c);
if c<min then begin
nmin:=3;
min:=c;
end;
readln(d);
if d<min then begin
nmin:=4;
min:=d;
end;
writeln(nmin);
end.
