Подпрограммы в паскале

[Шахрия]

Помогите решить задачку в паскале пожалуйста, кому не трудно.

Нужно составит программу, используя подпрограмму- процедуру.

Заданы стороны двух треугольников АВС (стороны а, в, с) и DEF (сто-роны d, e, f). Найти сумму и разность площадей треугольников АВС DEF. Площадь треугольника NKM со сторонами n, k, m
вычисляется по формуле Герона.(W= sqrt (r*(r-n)*( r-m)*( r-k)) )
r - полупериметр треугольника NKM. Исходные данные: а=3; b=2,5; c=1,7; d=2; e=7,8; f=7

[tocsik]

Как я понял, Вы не можете найти длины сторон, чтобы подставить их в формулы?
Вот функция, вычисляющая длину между точкой a и b:

function dist(ax, ay, bx, by : real) : real;
var
  c, d : real;
begin
   c := ax - bx;
   d := ay - by;
   dist := sqrt(c * c + d * d);
end;

ax, ay - координаты x и y вершины а;
bx, by - координаты x и y вершины b соответственно.
Ответ вычисляется при помощи теоремы Пифагора