Mengurutkan Bilangan

program Mengurutkan;

uses
    crt;

var
    x, y, z:integer;

begin
     ClrScr;
     write('Masukan bilangan bulat pertama: ');
     readln(x);
     write('Masukan bilangan bulat kedua: ');
     readln(y);
     write('Masukan bilangan bulat ketiga: ');
     readln(z);

     if (y > x) or (y < z) then
     writeln;
     readln;

     writeln('jadi urutannya adalah ',x,', ',y,', ',z);
     readln;
end.