program max_min; var max,min,a,b,c,d:integer; begin read(a,b,c,d); max:=a; min:=a; if min>b then min:=b else if maxc then min:=c else if maxd then min:=d else if max