Подпрограммы функции по-мо-ги-те

[--Sashok--]

Скласти програму обчислення периметра трикутника ABC, якщо відомі координати його вершини А(x1,y1,z1),B(x2,y2,x2),C(x3,y3,z3) .необхідно скористатись формулою P=AB+BC+AC, де AB=√(x1-x2)в квадрате + (y1-y2)в квадрате + (z1-z2)в квадрате. Корінь відноситься до всієї формули.

Вот все сделано только более сложным методом, мне нужно просто через подпрограмму функции, longint не рассатривали!

{$APPTYPE CONSOLE}
uses
  SysUtils;

type T3DPoint = record
  X: Longint;
  Y: Longint;
  Z: Longint;
end;


function Rasstoyanie(p1, p2 : T3DPoint) : real;
begin
 Result := sqrt(sqr(p1.X-p2.X)+sqr(p1.Y-p2.Y)+sqr(p1.Z-p2.z));
end;

procedure ReadPointCoordinate(PromptText : string; var p1 : T3DPoint);
begin
  Write(PromptText);
  Readln(p1.X, p1.Y, p1.Z);
end;

var ab,bc,ca, p : real;
   A, B, C : T3DPoint;

begin

  WriteLn;
  ReadPointCoordinate('Enter point A coordinate (x y z):', A);
  ReadPointCoordinate('Enter point B coordinate (x y z):', B);
  ReadPointCoordinate('Enter point C coordinate (x y z):', C);

  ab := Rasstoyanie(A, B);
  bc := Rasstoyanie(B, C);
  ca := Rasstoyanie(C, A);

  p := ab + bc + ca;
  writeln('Perimeter is ',p:12:4);
  Readln
end.

[--Sashok--]

up___________________ =(

[--Sashok--]

Ну что вам сложно сделать с сложной задачи простенькую*?