Найти max{min(a, b), min(c, d)}. (программа Паскаль)

Question

Найти max{min(a, b), min(c, d)}.

Answer 1

var a, b, c, d, m, m1, m2: real;
begin
    write('Введите четыре числа:')
    readln(a, b, c, d);
    if a<b then m:=__ else m:=__;
    if c<d then m1:=c else m1:=d;
    if m<m1 then m2:=__ else m2:=__;
    writeln('Максимальный из минимальных элементов: ', m2:7:2)
end.

Answer 2

function Max(a,b:integer):integer;
begin
  if a>b then
    Max:=a
  else
    Max:=b
end;
function Min(a,b:integer):integer;
begin
  if a<b then
    Min:=a
  else
    Min:=b
end;
var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  writeln('Result:=',Max(Min(a,b),Min(c,d)))
end.