编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：运行时错误...| 错误号: 207 | 无效浮点运算

├ 测试数据 07：运行时错误...| 错误号: 207 | 无效浮点运算

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

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

var a1,m:longint;

n:real;

begin

readln(m);

for a1:=1 to trunc((m-1)/2) do

begin

n:=(1-2*a1+sqrt((2*a1+1)*(2*a1+1)+8*m))/2;

if (n-trunc(n)=0) then begin

write(a1+1,' ',a1+trunc(n)-1);

writeln

end;

end;

end.

不知道是什么样的错误

求救啊