编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...　

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

var k,n:longint;

a,b:array [1..100] of real;

r,l,s:real;

begin

readln(n,r);

l:=2*r*3.14;

s:=s+l;

for k:=1 to n do

read(a[k],b[k]);

a[n+1]:=a[1];b[n+1]:=b[1];

for k:=1 to n do

begin

l:=sqrt(sqr(a[k]-a[k+1])+sqr(b[k]-b[k+1]));

s:=s+l;

end;

writeln(s:0:2);

end.