谁能用 Free pascal IDE？ 帮我运行一下这个程序
Begin{main}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.帮我截图可以吗，谢谢
