Подпрограмма

[Seferus]

даны действительные числа x,y получить значение t,если t=max(min(x,5),max(y,0)) нахождение минимума и макс оформить с исп подпрограммы. помогите плз

[Arigato]

function Max (a, b: Single): Single;
begin
  Result := (a + b + Abs (a - b)) / 2;
end; {func Max}

function Min (a, b: Single): Single;
begin
  Result := (a + b - Abs (a - b)) / 2;
end; {func Min}

var x, y, t: Single;

begin
  ReadLn (x, y);
  t := Max (Min (x, 5), Max (y, 0));
  WriteLn (t:0:2);
end.