function MinNumber(a,b: real): real; var min: real;begin if a<b then min:=a else min:=b; MinNumber:= min;end;
function MaxNumber(a,b: real): real; var max: real;begin if a>b then max:=a else max:=b; MaxNumber := max;end;