var
  a : array [1..100] of longint;
  n,sum,i : longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
   i:=1;
   while (i<=n) and (a[i]<=60) and (a[i]>=50) do i:=i+1;
   if i>n then
    writeln('Zero roses')
  else
    writeln(i);
end.