Составить алгоритм определения периметра треугольника, заданного координатами (х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.