program ctpt;

uses crt;

  var x, y, z: integer;

begin

          clrscr;

          write('Nhap x = '); readln(x);

          write('Nhap y = '); readln(y);

          write('Nhap z = '); readln(z);

          if x<y<z then write(x:3, y:3, z);

          if y<x<z then write(y:3, x:3, z);

          if x<z<y then write(x:3, z:3, y);

          if y<z<x then write(y:3, z:3, x);

          if z<x<y then write(z:3, x:3, y);

          if z<y<x then write(z:3, y:3, x);

          readln

end.

Chương trình theo QLinkVN nó sẽ như thế này:...

program baylak;

uses crt;

var x, y, z: integer;

begin

          clrscr; 

writeln('Hay nhap gia tri cho x: '); readln(x);   

          writeln('Hay nhap gia tri cho y: '); readln(y);

writeln('Hay nhap gia tri cho z: '); readln(z);

          if x<y<z then writeln(x, y, z);

if y<x<z then writeln(y, x, z);

          if x<z<y then writeln(x, z, y);

if y<z<x then writeln(y, z, x);

          if z<x<y then writeln(z, x, y);

if z<y<x then writeln(z, y, x);

          readln;

end.