Найти max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal
помогите, пожалуйста 🙁
- var a,b,c,d:integer;
function max (const x,y:integer):integer;
begin
if (x>y) then max:=x else max:=y;
end;
function min (const x,y:integer):integer;
begin
if (x