Составить метод определения периметра треугольника, данного координатами

Var  x1,x2,x3,y1,y2,y3:integer;
       l1,l2,l3,P: real;
begin
writeln("Введите координаты");
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
l1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
l2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
l3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
P:=(l1+l2+l3);
writeln("Периметр равен= ", P);
end.