program okr;

var

n,i :integer;

s,l,r,c : real;

begin

s:= 0;

write('Введите количество окружностей:');

readln(n);

for i := 1 to n do

begin

write('Введите радиус окружности №',i);

readln(r);

c:= pi * 2 * r;

s:= s + c;

writeln('Длина этой окружности:',c:0:2);

end;

writeln('Итоговая длина всех окружностей:',s:0:2);

end.