Решить с разъясненьем

var

 X, Y, Z: integer;

//Объявление переменных

begin

 read(X, Y, Z);

 //Ввод X,Y,Z

 if (Y lt; X) and (Y lt; Z) then

 //Если Y меньше X и Z то поменять местами Y и X

 begin

   //Обмен значений переменных Y и X

   X := X - Y;  

   Y := X + Y;  

   X := -X + Y;

 end

 else if (Z lt; X) and (Z lt; Y) then

 //Если Z меньше X и Y то поменять местами Z и X

 begin

   //Размен значений переменных Z и X

   X := X - Z;  

   Z := X + Z;  

   X := -X + Z;

 end;

 //153

 //Таким образом в переменной Х хранится минимальное число, а

 //наибольшее число хранится или в Y, или в Z

 if (Y gt; Z) then

 //Если Y больше Z то поменять местами Y и Z

 begin

   //Размен значений переменных Y и Z

   Z := Z - Y;  

   Y := Z + Y;  

   Z := -Z + Y;

 end;

 //Таким образом в переменной Z находится максимальное число

 write(X, ' ', Y, ' ', Z);

 //Вывод X,Y,Z

end.