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

Program n1;vari, n: integer;x,y : array[1..100] of integer;per: real;function dlina(x1,x2,y1,y2 : integer) : real;begindlina := sqrt(sqr(x2-x1) + sqr(y2-y1));end;beginwrite('введите кол-во сторон: '); 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.