На вход программы поступают 8 действительных чисел - координаты точек A, B, C, D на плоскости. Найти расстояние между от

На вход программы поступают 8 действительных чисел - координаты
точек A, B, C, D на плоскости. Найти расстояние между отрезками AB и
CD с точностью до 3х знаков после запятой.
Пример входных данных:
1.5 1.5 2.5 1.5 2 1 2 2
Пример ответа:
0.000

Примечание:
Program AbCd;
Uses crt;
Var
A,B,C,D,AB,CD:real;
x1,x2,y1,y2,z1,z2,
r1,r2,dx:real;
begin
ClrScr;
readln(x1,y1); {A}
readln(x2,y2); {B}
readln(z1,r1); {C}
readln(z2,r2); {D}
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
CD:=sqrt(sqr(z2-z1)+sqr(r2-r1));
dx:=sqrt(sqr(AB)-sqr(CD));
writeln(dx:3:3);
readln;
end.

Примечание:
Мое решение правильное?

Примечание:
Тогда помогите решить. Заранее спасибо!

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.