pascal 30891번 볶음밥 지키기 (백준)

var n,i,j,k,x,y,c,d:int64;r:real;a,b:array[1..100] of real;
begin
readln(n,r);
r:=r*r;

for i:=1 to n do begin
 readln(a[i],b[i]);
end;

for i:=-100 to 100 do begin
 for j:=-100 to 100 do begin
  y:=n;
  for k:=1 to n do begin
   if r < (sqr(a[k]-i)+sqr(b[k]-j)) then y-=1;
  end;
  if x < y then begin x:=y; c:=i; d:=j; end;
 end;
end;
write(c,' ',d);
end.

 

아래 c언어로 같은 문제를 푼 것이 있습니다.

https://h202.tistory.com/829