#define x for i:=1to n do\x0d var a:array[byte]of comp;i,j,n:comp;begin\x0d read(n);x read(a[i]);for j:=-999to 99do x if-j=a[i]then write(-j,^`)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page