program z6;var x1, x2, x3, y1, y2, y3, AB, BC, AC, P: integer;procedure dlina (var FE: real; x1, y1, x2, y2: integer);beginFE:=sqrt((sqr(abs(x1)-abs(x2)))+(sqr(abs(y1)-abs(y2))));writeln (FE);end;beginwriteln ('Введите координаты точки A'); read (x1,y1);writeln ('Введите координаты точки B'); read (x2,y2);writeln ('Введите координаты точки C'); read (x3,y3);dlina (AB, x1, y1, x2, y2);dlina (BC, x2, y2, x3, y3);dlina (AC, x1, y1, x3, y3);P:=(AB+BC+AC);writeln ('Периметр треугольника равен',' ', P);end.
program z6;
var x1, x2, x3, y1, y2, y3, AB, BC, AC, P: integer;
procedure dlina (var FE: real; x1, y1, x2, y2: integer);
begin
FE:=sqrt((sqr(abs(x1)-abs(x2)))+(sqr(abs(y1)-abs(y2))));
writeln (FE);
end;
begin
writeln ('Введите координаты точки A'); read (x1,y1);
writeln ('Введите координаты точки B'); read (x2,y2);
writeln ('Введите координаты точки C'); read (x3,y3);
dlina (AB, x1, y1, x2, y2);
dlina (BC, x2, y2, x3, y3);
dlina (AC, x1, y1, x3, y3);
P:=(AB+BC+AC);
writeln ('Периметр треугольника равен',' ', P);
end.