Напишите программу запрашивающую 3 числа и выводящую их в порядке возрастания.

Спасибо большое

1 фото в порядке убывания2 в порядке возрастаниятебе надо 2:Program Rick_and_Morty;var x,y,z:integer;Beginwrite('введите 1 число: ');readln (x);write('введите 2 число: ');readln (y);write('введите 3 число: ');readln (z);if ((x<=y) and (x<=z))then  begin    if (y<=z) then  writeln(x,',',y,',',z)    else  writeln(x,',',z,',',y);    endelseif ((y<=x) and (y<=z))then  begin  if (x<=z) then  writeln(y,',',x,',',z)  else  writeln(y,',',z,',',x)  endelseif ((x<=y)) then  writeln(z,',',x,',',y)  else  writeln(z,',',y,',',x);writeln('конец');end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!Beginvar (a,b,c):=ReadInteger3('a, b, c ->');var x:= min(a,min(b,c));var y:= max(a,max(b,c));var z:= 0;if (a <> x)and(a <> y)  then z:= a;if (b <> x)and(b <> y)  then z:= b;if (c <> x)and(c <> y)  then z:= c;Writeln(x, ' ', z, ' ', y);end.