pascal 奶牛的歌声 高手进

pascal 奶牛的歌声 高手进

好吧，有没有数据？
编出来，想检验一下
算了直接给你吧，有错你再追问
var a,b,c:array[1..10001]of longint;
i,j,k,l,t,n,x:longint;
begin
readln(n);
for i:=1 to n do read(a[i],b[i]);
for i:=2 to n do if a[i]>a[1] then begin
c[i]:=c[i]+b[1];
break;
end;
for i:=2 to n-1 do begin
for j:=i-1 downto 1 do
if a[j]>a[i] then begin
c[j]:=c[j]+b[i];
break;
end;
for j:=i+1 to n do
if a[j]>a[i] then begin
c[j]:=c[j]+b[i];
break;
end;
end;
for i:=n-1 downto 1 do if a[i]>a[n] then begin
c[i]:=c[i]+b[n];
break;
end;
t:=-1;
for i:=1 to n do if c[i]>t then t:=c[i];
writeln(t);
end.