Описать процедуру нахождения наименьшего из трех чисел

var
  a, b, c, d, e, f: integer;
 
procedure minValue(a, b, c: integer);
begin
  writeln('минимальное из: ', a, ' ', b, ' ', c, ' : это :', ((((a + b - abs(a - b)) / 2) + ((b + c - abs(b - c)) / 2) - abs(((a + b - abs(a - b)) / 2) - ((b + c - abs(b - c)) / 2))) / 2));
end;
 
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  write('d=');
  readln(d);
  write('e=');
  readln(e);
  write('f=');
  readln(f);
  minValue(a, b, d);
  minValue(a, d, e);
  minValue(d, c, f);
  minValue(b, c, f);
end.

procedure min(a,b,c:real;var mn:real);
begin
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
end;
var a,b,c,d,e,f,mn:real;
begin
writeln('Ââåäèòå 6 ÷èñåë');
read(a,b,c,d,e,f);
min(a,b,c,mn);
writeln('Ìåíüøåå èç a,b,c=',mn);
min(a,b,e,mn);
writeln('Ìåíüøåå èç a,b,e=',mn);
min(d,c,f,mn);
writeln('Ìåíüøåå èç d,c,f=',mn);
min(b,c,f,mn);
writeln('Ìåíüøåå èç b,c,f=',mn);
end.