Delphi 7 очень похож на Pascal. Поэтому я приведу код на PascalABC, который можно с легкостью запустить в среде разработки Делфи 7.Суть очень проста, создадим функции max и min, а потом выполним требуемые действия. var x,y,z,d:real; function min(a:real; b:real) : real; //нахождение минимума из 2-х чисел begin if(a > b) then min:=b else min:=a; end; function max(a:real; b:real; c:real) : real; //нахождение максимума из 2-х чисел begin if((a >= b) and (a >= c)) then max:=a; if((b >= a) and (b >= c)) then max:=b; if((c >= a) and (c >= b)) then max:=c; end; begin read(x,y,z,d); write(max (min (x, y), min (x, z), min (z, d))) ; //вывод ответа end.