Найти периметр десятиугольника, заданного координатами вершин - Pascal ABC

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

Даны действительные числа х1, у1, х2, у2, …,х10, у10. Найти периметр десятиугольника, вершины которого имеют соответственно координаты (х1, у1), (х2, у2), …, (х10, у10). (Определить процедуру вычисления расстояния между двумя точками, заданными своими координатами.) пожалуйста напишите программу

Решение задачи: «Найти периметр десятиугольника, заданного координатами вершин»

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

const n=10;
procedure rasst(x1,y1,x2,y2:real;var r:real);
begin
r:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x,y:array[1..n+1]of real;
    i:byte;
    r,p:real;
begin
writeln('Введите координаты 10 вершин');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  readln(x[i],y[i]);
 end;
x[n+1]:=x[1];
y[n+1]:=y[1];
p:=0;
for i:=1 to n do
 begin
  rasst(x[i],y[i],x[i+1],y[i+1],r);
  p:=p+r;
 end;
writeln('Периметр=',p:0:2);
end.

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

Переменная n инициализируется значением 10.
Создается процедура rasst, которая принимает четыре аргумента типа real и одну переменную типа real.
В процедуре rasst вычисляется квадратный корень из суммы квадратов разностей координат соседних вершин и сохраняется в переменной r.
Создается переменная r типа real.
Создается переменная x типа array[1..n+1]of real.
Создается переменная y типа array[1..n+1]of real.
Создается переменная i типа byte.
Запускается цикл for, который считывает координаты вершин от 1 до n.
В каждой итерации цикла переменные x[i] и y[i] инициализируются значениями, введенными пользователем.
Переменная x[n+1] копируется из x[1], а переменная y[n+1] копируется из y[1].
Переменная p инициализируется значением 0.
Запускается цикл for, который проходит по всем вершинам от 1 до n.
В каждой итерации цикла вызывается процедура rasst, передавая в нее координаты текущей и следующей вершин, а также переменную r.
Значение переменной r обновляется путем добавления к нему результата вычисления квадратного корня из суммы квадратов разностей координат соседних вершин.
После завершения цикла выводится значение переменной p.
Программа завершается.