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.

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

удачи!

мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,