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.

Если что - пиши в личку.

Удачи!