pascal问题哟~~~高手请来帮帮忙啦~~

第一个：
type
point=^node;
node=record
data:integer;
next:point;
end;

var
i:integer;
head,p,q,j:point;

begin
new(p);
p^.data:=1;
new(q);
p^.next:=q;
q^.data:=1;
head:=p;
for i:=2 to 9 do
begin
p:=head;
q:=p^.next;
while q<>nil do
begin
if (p^.data+q^.data)=i then
begin
new(j);
j^.data:=i;
j^.next:=q;
p^.next:=j;
p:=q;
q:=p^.next;
end
else begin p:=q; q:=p^.next;end;
end;
end;
p:=head;
while p<>nil do
begin
write(p^.data);
p:=p^.next;
end;
end.
结束。。。
第二个改天再弄吧。。。

第一题（我自己编写的）
program e0;
var a:array[1..1000]of integer;
x,i,j,n,m:integer;
begin
a[1]:=1;
a[2]:=2;
a[3]:=1;
x:=3;
m:=3;
readln(n);
repeat
begin
for i:=1 to m do
begin
if ((a[i]+a[i+1])=x) then
begin
m:=m+1;
for j:=m downto (i+2) do
begin
a[j]:=a[j-1];
end;
a[i+1]:=x;
end;
end;
x:=x+1;
end;
until (x>n);
for i:=1 to m do
write(a[i]);
readln;
end.

输入9后运行结果为：
1987659473857929758341

其它题目再等等

BEGIN
SIAHDB(A);
SKMX(S);
WRITE(A,S);
END.

一题
1 9 8 7 6 5 9 4 7 3 5 7 9 2 9 7 5 3 7 4 9 5 6 7 8 9 1

模拟，不解释……水题，懒得虐