要求以下程序的功能是计算: s=1+1/2+1/3+...+1/10。
var
n: integer;
s:real;
begin
s:=1.0;
for n:=10 downto 2 do
s:=s+1 div n;
writeln(s:6:4);
end.
程序运行后输出结果错误，导致错误结果的程序行是( )。