Begin{main}
<?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace>
initlist(s1);
initlist(s2);
s1.data[1]:=
2
;s1.data[2]:=
4
; s1.data[3]:=
6
;s1.data[4]:=
8
;s1.data[5]:=
9
;
s1.len:=
5
;
s2.data[1]:=1;s2.data[2]:=3;s2.data[3]:=
5
;s2.data[4]:=7;

s2.len:=
4
;
Hebing(s1,s2,s);
Outputlist(s1);writeln;
Outputlist(s2);writeln;
Outputlist(s);
end.

能把运行结果帮我截图吗，谢谢啦

@胜利KO

@dsqwzlds

@亲近一世繁华

@断涯枫001

老大，这是Pascal吧。。。。这一看就知道不是pascal的代码好不好