алгоритм присвоения минимального значения

[max_scotch]

Помоготе пожалуйста в решении данной задачи на Паскале.

Даны значения действительных переменных x, y, z. Составить алгоритм присвоения переменным x и z минимального из исходных значе-ний x, y, z. Переменную y оставить без изменения.

[Serge_Bliznykov]

var x,y,z,Min : real;
begin
  Readln(x,y,z);
  
  {поиск минимального значения}
  Min := x;
  if y<Min then Min := y;
  if z<Min then Min := z;

  {присвоение x и z минимального значения}
  x := Min;
  z := Min;

  WriteLn('x=',x:1:5,' y=',y:1:5,' z=',z:1:5);
  Readln
end.

[max_scotch]

Serge_Bliznykov спасибо Вам

[s-andriano]

Сообщение от Serge_Bliznykov

var x,y,z,Min : real;
...

А зачем лишние операции?

var x,y,z : real;
begin
  Readln(x,y,z);
  
  {поиск минимального значения и помещение его в x}
  if y<x then x := y;
  if z<x then x := z;

  {присвоение z минимального значения}
  z := x;

  WriteLn('x=',x:1:5,' y=',y:1:5,' z=',z:1:5);
  Readln
end.