ZOJ1049

题目不难，比较半径即可（可以比较半径的平方，相对好做）

问题是输出格式过于复杂，乱七八糟的句号和空格太多，导致我一连错了好多遍

时间复杂度无需考虑，暴力即可。

var n,i,a:longint;x,y,r:extended;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(x,y);
    r:=x*x+y*y;
    for a:=1 to maxlongint do
      if(a*100/pi>=r)then break;
    writeln('Property ',i,': This property will begin eroding in year ',a,'.');
  end;
  writeln('END OF OUTPUT.');
end.