这样行不行
program pll(input,output);
  var   s1,s2:real; i:integer;
  begin readln(s1);
        i:=1; s2:=0;
        if s1>0
        then begin while s2<s1 do
               begin i:=i+1; s2:=s2+1/i end;
                writeln(i-1,' card(s)')
             end
  end.