我自己测的时候没事，但提交就是下面的结果：

编译通过...

├ 测试数据 01：答案错误...

　├ 标准行输出

　├ 错误行输出 3

├ 测试数据 02：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 03：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 04：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 05：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 06：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 07：答案错误...

　├ 标准行输出 2...

　├ 错误行输出 0

├ 测试数据 08：答案错误...

　├ 标准行输出 2...

　├ 错误行输出 0

├ 测试数据 09：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

├ 测试数据 10：答案错误...

　├ 标准行输出 1...

　├ 错误行输出 0

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

哪位大牛帮我看看啊？

Program Raoyu;

Var St:AnsiString;

N,I:Longint;

F:Array[0..5000]of Longint;

Begin

Readln(St);

While(St'0')do

Begin

N:=Length(St);

Fillchar(F,Sizeof(F),0);

F[1]:=1;

If(St[1]+St[2]