Создать функцию нахождения минимального и максимального значений из двух чисел. Вычислить max(a,min(b,c))+min(a,b,c), где a,b и c вводит пользователь- Pascal(Паскаль)

function min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write(max(a,min(b,c))+min(min(a,b),c):0:2);
readln
end.