Submission #2012924

---

Source Code Expand

var
  x, y: array[1..100] of real;
  ans, d: real;
  i, j, n: integer;
begin
  readln(n);
  for i := 1 to n do
  begin
    read(x[i]);
    readln(y[i]);
  end;
  ans := -1e9;
  for i := 1 to n do
  begin
    for j := i + 1 to n do
    begin
      d := (x[i] - x[j]) * (x[i] - x[j]) + (y[i] - y[j]) * (y[i] - y[j]);
      if ans < d then
      begin
        ans := d;
      end;
    end;
  end;
  writeln(sqrt(ans));
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result