如果n=1 时要怎么考虑啊,我的程序时这样的

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]);

if n=1 then begin writeln(l:0:2);halt; end;

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.

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

请大牛们帮帮忙,小弟才6年级,小弟感激不尽