Помогите решить задачу в Pascale: по заданным значениям z,y,x вычислить U. U=min(x,max(y,z)) .Заранее спасибо))

Max
Код Pascal
1
2
3
4
5
6
7
8
Function Max(a,b,c:real):real;
Var t:real;
Begin
if a>b then t:=a
else t:=b;
if t>c then Max:=t
else Max:=c;
End.
Min
Код Pascal
1
2
3
4
5
6
7
8
Function Min(a,b,c:real):real;
Var t:real;
Begin
if a