Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по возрастанию. 

var a: array[1..3] of integer;      i,j,b: integer; begin writeln ('Vvedite 3 chisla'); readln (a[1],a[2],a[3]);   for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then begin  b:= a[j];  a[j]:= a[j+1];  a[j+1]:= b; end;    for i:= 1 to 3 do write (a[i],' '); readln; end.