[Pascal] Функции

[MaximV]

Даны 4 произвольных целых чисел.Вычислить S=max(a,b,c)+max(a,c,d)+max(a,b,d)+ max(b,c,d).Нахождение максимального трех чисел оформить в виде функции

[Helloween]

алгоритм =)

int max(int a,int b,int  c)
{
   if(a>b) 
    if(a>c) return a; else return c;
  else if(b>c) return b; else return c;
}

a>b ? (a>c? return a; : return c;) : (b>c ? return b; : return c;)