По координатам вершин треугольника вычислите его периметр, используя подпрограмму вычисления длины отрезка между двумя точками.

Var a1, b1, a2, b2, a3, b3:integer;

p, a, b, c:real;

procedure dlina (x1, x2, y1, y2:integer; var d:real);

begin

d:=sqrt (sqr (x2-x1) + sqr (y2-y1));

end;

begin

read (a1, b1, a2, b2, a3, b3);

dlina (a1, a2, b1, b2, a);

dlina (a2, a3, b2, b3, b);

dlina (a3, a1, b3, b1, c);

p:=a+b+c;

write (p:0:2);

end.