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

Может быть, я тебя не так понял. Значит max (y,x) означет что надо вычислить что больше 'x' или 'y'? Соответственно и min. var x,y,max,min: integer; BeginWriteln ('введите 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. Если что — пиши в личку. Удачи!