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.

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

удачи!

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.