<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Otr(Ax, Bx, Ay, By: real) :=
Sqrt(Sqr(Bx - Ax) + Sqr(By - Ay));
begin
var Ax, Ay, Bx, By, Cx, Cy, Dx, Dy: real;
Readln(Ax, Ay, Bx, By, Cx, Cy, Dx, Dy);
Writeln('|AB|=', Otr(Ax, Bx, Ay, By));
Writeln('|AC|=', Otr(Ax, Cx, Ay, Cy));
Writeln('|AD|=', Otr(Ax, Dx, Ay, Dy))
end.
<h2>Пример</h2><h2>2.3 3.09 -4.2 6 8.5 -3 4 0</h2><h2>|AB|=7.12166413136705</h2><h2>|AC|=8.69069042136469</h2><h2>|AD|=3.52676905963518</h2>