错误200是怎么回事，没有除以零啊？

pascal代码：

var k,a:integer;
sn:real;
begin
readln(k);
sn:=0;
a:=0;
while sn<=k do
 begin
  a:=a+1;
  sn:=sn+1/a;
 end;
writeln(a);
end.
提交的时候会错误200，手动运行的时候从11开始就会直接运行结束。