Даны значения c,d,m,k. Напишите min для вычисления значения следующего выражения: min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m)) — Pascal(Паскаль)

var k,d,c,m:integer;
    r:real;
 
function min(a,b,c:integer):integer;
var m:integer;
begin
if a>b then m:=b else m:=a;
if m>c then m:=c;
min:=m;
end;
 
begin
writeln('Введите K,D,C,M');
readln(k,d,c,m);
r:=(min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m));
writeln(r);
end.