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.

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

Удачи!