program CalculatePerimeterOfTriangle;
type
Point = record
x, y: Integer;
end;
function CalculateDistance(p1, p2: Point): Real;
begin
CalculateDistance := sqrt(sqr(p2.x - p1.x) + sqr(p2.y - p1.y));
end;
var
p1, p2, p3: Point;
distance1, distance2, distance3: Real;
perimeter: Real;
begin
// Ввод координат точек
writeln('Введите координаты первой точки:');
readln(p1.x, p1.y);
writeln('Введите координаты второй точки:');
readln(p2.x, p2.y);
writeln('Введите координаты третьей точки:');
readln(p3.x, p3.y);
// Вычисление длин сторон треугольника
distance1 := CalculateDistance(p1, p2);
distance2 := CalculateDistance(p2, p3);
distance3 := CalculateDistance(p3, p1);
// Вычисление периметра треугольника
perimeter := distance1 + distance2 + distance3;
// Вывод результата
writeln('Периметр треугольника: ', perimeter:0:2);
end.

Пример ввода:

Введите координаты первой точки:
0 0
Введите координаты второй точки:
4 0
Введите координаты третьей точки:
0 3

Пример вывода:

Периметр треугольника: 12.00