Функции, определенные пользователем [Паскаль]

[nigga2]

Решите задачу пожалуйста,или дайте наводку,а то совсем никаких мыслей нет

Определить значение выражения m(a,b,c)+m(b,c,d]+m(c,d,a) для вещественных a,b,c,d,где m(x,y,z)-функция определения минимального из трех чисел.

[Serge_Bliznykov]

function m(x, y, z : real) : real;
begin
  if (x<y) and (x<z) then m := x
  else 
    if (y<x) and (y<z) then m := y
    else m := z
end;

var 
  a,b,c,d : real;
  z : real; 
begin
  Writeln('Введите a,b,c,d');
  Readln(a,b,c,d)
  z := m(a,b,c)+m(b,c,d)+m(c,d,a);

  writeLn('Значение выражения равно :', z:10:4);
  Readln
end.

[nigga2]

огоромное тебе спасибо