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

Var

a, b, c, d, e: real;

function min (a, b, c: real) : real;

begin

if (b < a) and (b < c) then min : = b;

if (c < a) and (c < b) then min : = c;

if (a < b) and (a < c) then min : = a;

end;

begin

read (a, b, c, d, e) ;

write (min (min (a, b, c), d, e)) ;

end.