program t1;
type
link=^data;
data=record
num:integer;
next:link;
end;
var
h:link;
outit:text;
procedure build;
var
p,q:link;
i:integer;
begin
new(h);
p:=h;
for i:=2 to 10000 do
begin
new(q);
p^.next:=q;
p^.num:=i;
p:=q;
p^.next:=nil;
end;
end;
procedure sx;
var
p,q,w:link;
begin
w:=h;
p:=w^.next;
q:=p^.next;
while w^.next<>nil do
begin
while q<>nil do
begin
if (q^.num mod w^.num=0) then
begin
p^.next:=q^.next;
dispose(q);
q:=p^.next;
end
else
begin
p:=q;
q:=q^.next;
end;
end;
w:=w^.next;
p:=w^.next;
q:=p^.next;
end;
p:=h;
while h^.num<8000 do
begin
h:=h^.next;
dispose(p);
p:=h;
end;
end;
procedure sc;
var
p:link;
begin
p:=h;
assign(outit,*t1.out*);
rewrite(outit);
while p<>nil do
begin
write(outit,p^.num);
p:=p^.next;
end;
writeln(outit);
close(outit);
end;
begin
build;
sx;
sc;
end.

跪求答案