Помогите с 3 номером

Question

Помогите с 3 номером

---

Answer 1

Ответ:

pascal

Объяснение:

program dlina_AB;

var

 xa, ya, xb, yb, d: real;

begin

 Write('Введите координаты точки А >> ');

 ReadLn(xa, ya);

 Write('Введите координаты точки B >> ');

 ReadLn(xb, yb);

 d := sqrt(sqr(xb - xa) + sqr(yb - ya));

 WriteLn('Длина отрезка АВ равна ', d:4:1);

end.