一开始忘打readln了: { Author:wzx961008 Problem:UVa 10038-Jolly Jumpers Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-01-14 00:47:15 } var a:array[1..3001]of longint; f:array[0..6001]of boolean; i,n:longint; t:boolean; begin while not eof do begin read(n); fillchar(f,sizeof(f),false); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if abs(a[i+1]-a[i])<=n-1 then f[abs(a[i+1]-a[i])]:=true; t:=true; for i:=1 to n-1 do t:=t and f[i]; if t then writeln('Jolly') else writeln('Not jolly'); readln; end; end.