Неутомимый Карлсон

di:=sqrt(sqr(xk-xi)+sqr(yk-yi));

s:=0;
for i:=1 to n do
s:=s+di;

var a: array[1..15] of longint;
     b: array[1..15] of longint;
     n, hx, hy, i, j, x, y: longint;
     s, d: real;
 begin
  s := 0;
  read(n);
  read(hx, hy);
  for i := 1 to n do
  read(a[i], b[i]);
  for i := 1 to n do
   begin
    d := sqrt(sqr(a[i]-hx) + sqr(b[i]-hy));
    s := s+d;
   end;
  s := s*2;
  write(s:0:2);
end.

var a: array[1..15] of longint; // объявляем переменные (+заводим массивы)
 b: array[1..15] of longint;
 n, hx, hy, i, j, x, y: longint;
 s, d: real;
 begin
 s := 0; // тут думаю
 read(n); // разберётесь
 read(hx, hy);
 for i := 1 to n do // цикл от 1 до N по переменной i
 read(a[i], b[i]); // ввод координаты x и y для i-го спонсора
 for i := 1 to n do // идём циклом от 1 до N по переменной i 
 begin
 d := sqrt(sqr(a[i]-hx) + sqr(b[i]-hy)); // и вычисляем расстояние по формуле  
 s := s+d; // суммируем эти расстояния
 end; 
 s := s*2; // удваиваем сумму -
 write(s:0:2); // это и будет результатом
end.