program try;
var c,s:real;
    i:integer;
begin
  begin
    readln(c);
    s:=0.5;
    i:=1;
    while s<c do
    begin
      i:=i+1;
      s:=s+1/(1+i);
    end;
    write(i,' card(s)');
  end;
end.