Помогите Решить

[Gleb2010]

У Вас есть N камней с массами W1, W2 , … WN. Требуется разложить камни на 2 кучки так, чтобы разница масс этих кучек была минимальной.
Входные данные

В первой строке входного файла INPUT.TXT записано число N – количество камней (1 ≤ N ≤ 18). Во второй строке через пробел перечислены массы камней W1, W2 , … WN (1 ≤ Wi ≤ 105).
Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести одно неотрицательное целое число – минимально возможную разницу между массами двух кучек.

 

[Senset]

1) считываешь из файла input.txt в массив массы (назовем его m[1..18])
2) сортируешь его по убыванию
2.2) создаешь функцию которая посчитаешь массы камней начиная с k+1-го до конца массива (назовем её sum_r(m,n,k):real)
2.3) создаешь функцию которая посчитает массы камней начиная с 1-го до k-го (включительно) (назовем её sum_l(m,n,k):real)
3)
граница, по которой камни делятся на 2 кучки камней:
начинается с 1 камня (т.е. 1-ый камень является 1 кучкой, остальные - второй)
min=m[1];
for i:=1 to n-1 do
begin
dmin=abs(sum_l(m,n,i)-sum_r(m,n,k));
if dmin<min then min=dmin;
end;

 

[Ivanovna]

Помогите пожалуйста решить задачу в Pascal. Используя функцию нахождения медианы треугольника. Составить программу поиска всех медиан треугольника, заданого сторонами а,в,с. Вот что получилось у меня.
program z_1;
var a,b,c:real; mA,mB,mC:real;
function mediana(x,y,z:real):real;
begin
mediana:=1/2*sqrt(2*sqr(x)+2*sqr-sqr(z));
end;
BEGIN
writeln('введите стороны треу-ка');
readln (a,b,c);
mA:=mediana(b,c,a);
mB:=mediana (a,c,;
mC:=mediana(a,b,c);
write('вывести результаты');
readkey;
END.