Треугольник задан координатами своих вершин. Найти периметр треугольника

Треугольник задан координатами своих вершин. Найти периметр треугольника

Program Triugolnik;
Uses crt;
Var Xa,Xb,Xc,
Ya,Yb,Yc:integer;
ab,ac,bc,p:real;
begin
Clrscr;
Writeln('Введите координаты точки А:');
write('x= ');readln(xa);
write('y= ');readln(ya);
Writeln('Введите координаты точки B:');
write('x= ');readln(xb);
write('y= ');readln(yb);
Writeln('Введите координаты точки C:');
write('x= ');readln(xc);
write('y= ');readln(yc);
ab:=sqrt(sqr(abs(xa-xb))+sqr(abs(ya-yb)));
ac:=sqrt(sqr(abs(xa-xc))+sqr(abs(ya-yc)));
bc:=sqrt(sqr(abs(xb-xc))+sqr(abs(yb-yc)));
p:=ab+ac+bc;
writeln('Периметр триугольника равен ',p:4:2);
writeln('Для выхода нажмите Enter');
readln;
end.