PersonalCorpus 版 (精华区)

148268 11:03:51
28 Feb 2002 Bozhang,HIT,P.R.China 1020 Pascal Accepted 0.02 sec 53K


var
    i,n:byte;
    res,r,s,t,u,v,w:real;
begin
    readln(n,r);
    res:=r*3.1416*2;
    readln(r,s);
    t:=r; u:=s;
    for i:=2 to n do begin
        readln(v,w);
        res:=res+sqrt(sqr(v-t)+sqr(w-u));
        t:=v; u:=w;
    end;
    writeln(res+sqrt(sqr(t-r)+sqr(u-s)):0:2);
end.