Submission #3463176

---

Source Code Expand

var x,y:array[1..100] of longint;
    i,j,n:longint; t,max:real;
begin
  read(n);
  for i:=1 to n do read(x[i],y[i]);
  max:=0;
  for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
    t:=sqr(x[i]-x[j])+sqr(y[i]-y[j]);
    if t>max then max:=t;
  end;
  max:=sqrt(max);
  writeln(max:0:3);
end.

Submission Info

Compile Error

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

Judge Result