Program zad1; var x,y:array[1..20]of real; duzina, duzina2, d_max, tren:real; i,j,n,k,t1,t2:integer; function Rastojanje(x1,y1,x2,y2:real):real; begin Rastojanje:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); end; begin readln(n); for i:=1 to n do readln(x[i],y[i]); duzina:=0; for i:=1 to n-1 do duzina:= duzina+ Rastojanje(x[i],y[i],x[i+1],y[i+1]); readln(i,j); duzina2:=0; for k:=i to j-1 do duzina2:= duzina2+ Rastojanje(x[k],y[k],x[k+1],y[k+1]); duzina2:=duzina2 + Rastojanje(x[i],y[i],x[j],y[j]); writeln(duzina1, duzina2); t1:=1; t2:=2; d_max:=Rastojanje(x[t1],y[t1],x[t2],y[t2]); for i:=1 to n-1 do for j:=i+1 to n do begin tren:=Rastojanje(x[i],y[i],x[j],y[j]); if(tren>d_max) then begin d_max:=tren; t1:=i; t2:=j; end; end; writeln(d_max); end.