Составить алгоритм определения периметра треугольника, заданного координатами (х1; у1), (х2; у2); (х3; у3) своих вершин.

paskal

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.