Найти периметр N-угольника, заданного на плоскости координатами своих вершин. (Написать функцию для нахождения длины стороны N-угольника). Паскаль, через функции пользователя.

Program n1; var i, n: integer; x,y : array[1..100] of integer; per: real; function dlina(x1,x2,y1,y2 : integer) : real; begin dlina := sqrt(sqr(x2-x1) + sqr(y2-y1)); end; begin write('введите кол-во сторон: '); readln(n); per := 0; write('введите x1 координату: '); readln(x[1]); write('введите y1 координату: '); readln(y[1]); for i:=2 to n do begin write('введите х',i,' координату: '); readln(x[i]); write('введите y',i,' координату: '); readln(y[i]); per := per + dlina(x[i-1],y[i-1],x[i],y[i]); end; per := per + dlina(x[i],y[i],x[1],y[1]); writeln('периметр искомого ',n,' угольника',per); readln; end.