program Project2; {$APPTYPE CONSOLE} var l,x1,x2,y1,y2 :REAL; f,t :text; begin assign(f,'storonu.dat'); reset(f); readln(f,x1,y1); readln(f,x2,y2); readln(f,x3,y3); close(f); assign(t,'perumetr.sol'); rewrite(t); l:=sqrt(sqr(x1-x2)+sqr(y1-y2)); n:=sqrt(sqr(x2-x3)+sqr(y2-y3)); b:=sqrt(sqr(x3-x1)+sqr(y3-y1)); g:=l+n+b; write(t,g:3); close(t); end.