编译通过...

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

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

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

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

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

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

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：83 有效耗时：0ms

program dsa;

var s,a,b,x,y,x1,y1,r:real;

n,i:integer;

begin

read(n,r);

read(x1,y1);

x:=x1;y:=y1;

for i:=2 to n do

begin

read(a,b);

s:=s+sqrt(sqr(a-x)+sqr(b-y));

x:=a;

y:=b;

end;

s:=s+sqrt(sqr(a-x1)+sqr(b-y1));

s:=s+2*r*3.1415926;

write(s:0:2);

end.