Известны координаты 3-х точек a(x1,y1),b(x2,y2),c(x3,y3). найдите сумму расояний ab+bc. запишите в программе pascal

Uses crt;var  x1,x2,x3,y1,y2,y3: real;  begin cls;  write('Координаты A: ');readln(x1,y1);  write('Координаты B: ');readln(x2,y2);  write('Координаты C: ');readln(x3,y3);  write('Сумма AB+BC = ',(sqrt(sqr(x2-x1)+sqr(y2-y1)))+(sqrt(sqr(x3-x2)+sqr(y3-y2))):0:2);end.