Question

составить программу вычисляющую max(min(a,b), min(c,d))

Answer 1

А в чем проблема?
uses crt;
var a,b,c,d:integer;
begin
read(a,b,c,d);
writeln(max(min(a,b),min(c,d)));
end.