Вычислить длину пути по координатам точек - Turbo Pascal

Формулировка задачи:

Коля решил навестить четырех своих друзей. Вычислите, какое расстояние ему потребуется преодолеть, чтобы навестить по очереди всех друзей и вернуться домой. Формат ввода: xk yk – координаты Коли x1 y1 – координаты первого друга x2 y2 – координаты второго друга x3 y3 – координаты третьего друга x4 y4 – координаты четвертого друга Пример ввода: 0 0 0 2 2 2 2 6 0 6 Формат вывода: r – длина Колиного пути (выводить с двумя знаками после запятой) Пример вывода: 16.00 Заранее спасибо!!!

Решение задачи: «Вычислить длину пути по координатам точек»

Листинг программы

const n=4;
function L(x1, y1, x2, y2: Real): Real;
begin
  L:=SqRt(Sqr(x1-x2)+Sqr(y1-y2));
end;
var xk,yk, xp,yp, x,y, s: Real; i: Integer;
begin
  Read(x,y); xk:=x; yk:=y; {s:=0;}
  for i:=1 to n do begin
    xp:=x; yp:=y; Read(x,y);
    s:=s+L(xp,yp,x,y);
  end;
  s:=s+L(x,y,xk,yk);
  WriteLn(s:0:2);
end.

Объяснение кода листинга программы

В начале объявляются необходимые переменные: n (количество точек), xk, yk, xp, yp, x, y, s (накопитель для вычисления длины пути) и i (переменная для счётчика цикла).
Затем идёт чтение координат x и y из файла. Первая пара координат (xk, yk) присваивается переменным x и y соответственно. Далее происходит чтение следующих n-1 пар координат и суммирование длины пути в накопителе s. Последняя пара (x, y) читается после завершения цикла.
После чтения всех n пар координат происходит вычисление длины пути для последней пары (xk, yk) с помощью функции L. Результат добавляется к накопителю s.
Завершается функция выводом значения s на экран.