1. Даны два действительных числа х, у. Найти max(min(x-y, y), x).

Может быть, я тебя не так понял. Значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.   var x,y,max,min: integer; Begin Writeln('введите x,y через пробел'); read(x,y); if x-y>y then min:=y else min:=x-y; {Если х-у>y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)} If min>x then max:=min else max:=x; {примерно также} Writeln(max); end.   Если что - пиши в личку. Удачи!