Полная подпрограмма Функция

[P4elkabek]

Помогите прошу вас написать полную программу,Четыре
точки заданы своими координатами Четыре
точки заданы своими
координатами
x={x1,x2,x3} ,y={y1,y2,y3} z={z1,z2,z3}, и p=
{p1,p2,p3} .Выяснить какие из них находятся в
минимальном расстоянии друг от друга, и
вывести значение этого расстояния.
Вычисление расстояния между точками
оформить в виде подпрограммы function.
исходн. данные x= {3,2;5;1,4},y={2,2;-4;3},z={-6,1;-3;1},p={2,7;1;-1} с
началом помогли function Rass
12(x1,x2,y1,y2,z1,z2:Double) :Double; begin
Rass12:=Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)
+(z1-z2)*(z1-z2)); end; нужно продолжение,
заранее спс,мне так неудобно (( я валенок у меня котелок не варит ( помогите

[BDA]

Кросспостинг запрещен