Определить значение выражения m(a,b,c)+m(b,c,d)+m(c,d,a) для вещественных a,b,c,d где m(x,y,z) — функция определения минимального из трёх чисел — Pascal(Паскаль)

program p1;
var 
a,b,c,d,v:real;
function Min2(a,b:real):real;
begin
    if(a<b) then
        Min2 := a
    else
        Min2 := b;
        
end;
function Min3(a,b,c:real):real;
var 
    t:real;
begin
    t := Min2(b,c);
    
    if(a < t) then
        Min3 := a
    else
        Min3 := t;
        
end;
 
begin
writeln('Vvedite cisla');
write('a= ');readln(a);
write('b= ');readln(b);
write('c= ');readln(c);
write('d= ');readln(d);
v := Min3(a,b,c) + Min3(b,c,d) + Min3(c,d,a);
writeln('Resultat v= ',v:5:2);
readln;
end.