3. Напишите программу, вычисляющую длину отрезка AB по заданным координатам точек A(xₐ, yₐ) и B(xᵦ, yᵦ). Подсказка: расстояние d между точками выражается формулой d = √((xᵦ − xₐ)² + (yᵦ − yₐ)²). Пример входных данных: xₐ = 2, yₐ = 1, xᵦ = 10, yᵦ = 7. Пример выходных данных: |AB| = 10,0.

Вычислим разности координат, возведём их в квадрат, сложим квадраты и извлечём квадратный корень. В Pascal для этого используется функция sqrt, а степень 2 можно записать умножением числа на себя.

program SegmentLength;
var
  xa, ya, xb, yb, dx, dy, d: real;
begin
  write('Введите xa, ya, xb, yb: ');
  readln(xa, ya, xb, yb);
  dx := xb - xa;
  dy := yb - ya;
  d := sqrt(dx * dx + dy * dy);
  writeln('|AB| = ', d:0:1);
end.

Для приведённых данных: dx = 10 − 2 = 8, dy = 7 − 1 = 6; d = √(8² + 6²) = √100 = 10.

Ответ: |AB| = 10,0.