Даны действительные числа x1,y1,x2,y2,...,x10,y10.Найти периметр десятиугольника, вершины которого имеют соответстенно координаты (x1,y1),(x2,y2),...,(x10,y10). Определить процедуру вычисления расстояния между двумя точками, заданными своими координатами

за розочку, я знаю такую функцию

function countDlina(x1,y1,x2,y2:integer):real;
begin

  countDlina:= sqrt( (x2-x1)*(x2-x1)+(y2-y1)*(y2-y1) );

end;