обрисовать функцию min (a,b,c) получающую три вещественных числа и находящую минимальное

Var
  a, b, c, d, e: real;
 
function min(a, b, c: real): real;
begin
  if(b lt; a) and (b lt; c) then min := b;
  if(c lt; a) and (c lt; b) then min := c;
  if(a lt; b) and (a lt; c) then min := a;
end;
 
begin
  read(a, b, c, d, e);
  write(min(min(a, b, c), d, e));
end.