Решить, используя подпрограммыK=MIN (23,a,d)+MIN (67,d,b)

Var a, d, b: real; function min (a, b: real): real; begin if a < b then min: =a else min: =b; end; begin read (a, b, d); writeln ('K=', min (23, min (a, d)+min (67, min (d, b); end.