对于你的评价我做出以下评价：

var i:integer;

begin

for i:=1 to 5 do

case i of

1：你点了。

2：好像x=-x是只有一个解哈。

3：应该是ax^2+bx+c=dx^2+ex+f吧。(a=d,b=e,c=f);

4：还是应该感谢哈。

5：我明白了。

end;

end.