Напишите программу на PASCAL для решения следующей задачи. Пользователь вводит с клавиатуры координаты трех вершин прямоугольного треугольника: (x1, y1), (x2, y2), (x3, y3). Необходимо найти его периметр, считая, что длина каждой стороны рассчитывается по формуле: √(x2−x1)2+(y2−y1)2.
program PerimeterOfRightTriangle;
var
x1, y1, x2, y2, x3, y3: integer;
side1, side2, side3, perimeter: real;
begin
write('Enter the coordinates of the first vertex (x1 y1): ');
readln(x1, y1);
write('Enter the coordinates of the second vertex (x2 y2): ');
readln(x2, y2);
write('Enter the coordinates of the third vertex (x3 y3): ');
readln(x3, y3);
side1 := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
side2 := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
side3 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
perimeter := side1 + side2 + side3;
writeln('The perimeter of the right triangle is: ', perimeter:0:2);
end.