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

паскаль?

В порядке убывания написал)

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программка не работает, обновите версию!



Begin
var (a,b,c):=ReadInteger3('a, b, c -gt;');
var x:= min(a,min(b,c));
var y:= max(a,max(b,c));
var z:= 0;
if (a lt;gt; x)and(a lt;gt; y)
  then z:= a;
if (b lt;gt; x)and(b lt;gt; y)
  then z:= b;
if (c lt;gt; x)and(c lt;gt; y)
  then z:= c;
Writeln(x, ' ', z, ' ', y);
end.

1 фото в порядке убывания
2 в порядке возрастания

тебе надобно 2:

Program Rick_and_Morty;
var x,y,z:integer;

Begin
write('введите 1 число: ');
readln (x);
write('введите 2 число: ');
readln (y);
write('введите 3 число: ');
readln (z);

if ((xlt;=y) and (xlt;=z))then
  begin    if (ylt;=z) then
  writeln(x,',',y,',',z)  
  else
  writeln(x,',',z,',',y);
    end
else

if ((ylt;=x) and (ylt;=z))then
  begin
  if (xlt;=z) then
  writeln(y,',',x,',',z)
  else
  writeln(y,',',z,',',x)
  end
else

if ((xlt;=y)) then
  writeln(z,',',x,',',y)
  else
  writeln(z,',',y,',',x);

writeln('конец');
end.