记录编号	54432	评测结果	AAAAAAAAAA
题目名称	智力大冲浪	最终得分	100
用户昵称	bysg	是否通过	通过
代码语言	Pascal	运行时间	0.012 s
提交时间	2013-03-10 16:29:39	内存使用	0.18 MiB

program dsfhdfsg;
var a,b,c,q,w:array[0..1000]of longint;
d,n,e,f,x,y,u,i,o:longint;
begin
assign(input,'riddle.in');
reset(input);
assign(output,'riddle.out');
rewrite(output);
readln(a[1]);
readln(n);
for d:=2 to n do a[d]:=a[1];
for d:=1 to n do read(b[d]); readln;
for d:=1 to n do read(c[d]);readln;

for x:=1 to n-1    do
for y:=x+1 to n do
if c[x]<c[y] then
begin
e:=b[x];b[x]:=b[y];b[y]:=e;
f:=c[x];c[x]:=c[y];c[y]:=f;
end;

q[0]:=1000;

for d:=1 to n do
 begin
if q[b[d]]=0 then begin q[b[d]]:=d;end else
if q[b[d]]<>0 then
for u:=b[d]-1 downto 0 do
begin
if q[u]=0 then begin q[u]:=d;break;end;
if q[u]=1000 then a[1]:=a[1]-c[d];end;
end;
 write(a[1]);
 close(input);
 close(output);
end.